回 帖 发 新 帖 刷新版面

主题:execute 函数是干什么用的

execute 函数是干什么用的[em5]

回复列表 (共17个回复)

11 楼

我的是书上也有,不过他是我们不要混淆

12 楼

呵呵,楼上的说话怎么我看不懂呀~~~

13 楼

TP7 的帮助能找到这个单词,好像要用Object单元和Views单元。它们好像可以用来制作一些界面像TP一样 有窗口、有菜单、有鼠标、有对话框的大型软件。

以上发言,连我自己也不知道说了什么,更不用说execute 函数了

14 楼

是Delphi的函数,我的TP用不得

15 楼

书上的解释是:EXECUTE(f)  过程  执行目标程序
什么意思

16 楼

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 楼

我知道

运行外部程序或DOS命令

execute(cmd:string;param:string);

我来回复

您尚未登录,请登录后再回复。点此登录或注册