主题:execute 函数是干什么用的
HRQ
[专家分:60] 发布于 2005-07-29 18:13:00
execute 函数是干什么用的[em5]
回复列表 (共17个回复)
11 楼
weiyulan [专家分:50] 发布于 2005-08-07 14:10:00
我的是书上也有,不过他是我们不要混淆
12 楼
口口and枕头 [专家分:1550] 发布于 2005-08-07 16:17:00
呵呵,楼上的说话怎么我看不懂呀~~~
13 楼
阿Ben [专家分:2200] 发布于 2005-08-07 21:53:00
TP7 的帮助能找到这个单词,好像要用Object单元和Views单元。它们好像可以用来制作一些界面像TP一样 有窗口、有菜单、有鼠标、有对话框的大型软件。
以上发言,连我自己也不知道说了什么,更不用说execute 函数了
14 楼
weiyulan [专家分:50] 发布于 2005-08-12 21:29:00
是Delphi的函数,我的TP用不得
15 楼
HRQ [专家分:60] 发布于 2005-08-13 13:54:00
书上的解释是:EXECUTE(f) 过程 执行目标程序
什么意思
16 楼
superdelphi [专家分:0] 发布于 2005-08-16 10:20:00
execute我不知道,不过exec倒是有的
是用来调用外部程序的,类似于Windows API函数shellexecute
下面是Turbo Pascal7.0中的示例程序
Executes a specified program with a specified
command line.
Declaration:
procedure Exec(Path, CmdLine: string);
Target:
Real, Protected
Remarks:
Errors are reported in DosError. When
compiling a program that uses Exec, reduce the
"maximum" heap size; otherwise, there won't be
enough memory (DosError = 8).
See Also:
DosError
DosExitCode
SwapVectors
Sample Code:
{DOSXCODE.PAS}
{ Example for DosExitCode and Exec }
{$M $4000,0,0 } { 16K stack, no heap }
uses Dos;
var
ProgramName, CmdLine: string;
begin
Write('Program to Exec (full path): ');
ReadLn(ProgramName);
Write('Command line to pass to ',
ProgramName, ': ');
ReadLn(CmdLine);
WriteLn('About to Exec...');
SwapVectors;
Exec(ProgramName, CmdLine);
SwapVectors;
WriteLn('...back from Exec');
if DosError <> 0 then{ Error? }
WriteLn('Dos error #', DosError)
else
WriteLn('Exec successful. ',
'Child process exit code = ',
DosExitCode);
end.
17 楼
lidaminy [专家分:60] 发布于 2006-02-09 19:50:00
我知道
运行外部程序或DOS命令
execute(cmd:string;param:string);
我来回复