如何使用 pascal 在执行两个外部程序之间设置延迟/睡眠？

发布于 2024-12-17 03:59:15 字数 276 浏览 2 评论 0原文

我有这样的代码：

begin
    RunProgram:=TProcess.Create(nil);
    RunProgram.Commandline:='calc.exe';
    RunProgram.Execute;
    RunProgram.Commandline:='notepad.exe';
    RunProgram.Execute;
    RunProgram.Free;
end.

我想在执行 calc.exe 后休眠或延迟

原文

I have code like:

begin
    RunProgram:=TProcess.Create(nil);
    RunProgram.Commandline:='calc.exe';
    RunProgram.Execute;
    RunProgram.Commandline:='notepad.exe';
    RunProgram.Execute;
    RunProgram.Free;
end.

and I would like to put a sleep or delay after executing calc.exe

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

死开点丶别碍眼 2024-12-24 03:59:15

您的想法是正确的 - 就是睡眠。

begin
  RunProgram:=TProcess.Create(nil);
  RunProgram.Commandline:='calc.exe';
  RunProgram.Execute;
  Sleep(1000);             // Adds a 1 second delay
  RunProgram.Commandline:='notepad.exe';
  RunProgram.Execute;
  RunProgram.Free;
end.

您可能需要将 Windows 单元（或者可能是一个不同的单元 - 我不熟悉 FreePascal 的单元排列）添加到您的 uses 子句中，以便能够编译 <代码>睡眠功能。

You had the right idea - it's Sleep.

begin
  RunProgram:=TProcess.Create(nil);
  RunProgram.Commandline:='calc.exe';
  RunProgram.Execute;
  Sleep(1000);             // Adds a 1 second delay
  RunProgram.Commandline:='notepad.exe';
  RunProgram.Execute;
  RunProgram.Free;
end.

You may need to add the Windows unit (or possibly a different one - I'm not familiar with FreePascal's unit arrangement) to your uses clause to be able to compile the Sleep function.

回复收藏 0 原文

~没有更多了~