5,388
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
xuxia 2002-01-06
- 打赏
- 举报
我已经找到答案。同样谢谢各位
cszhz 2002-01-06
- 打赏
- 举报
都很好用的
cszhz 2002-01-06
- 打赏
- 举报
winexec
ShellExecute(self.Handle,nil,'notepad.exe',nil,nil,SW_SHOW);
ShellExecute(self.Handle,nil,'notepad.exe',nil,nil,SW_SHOW);
peihexian 2002-01-06
- 打赏
- 举报
uses shellapi;
procedure TForm1.Button1Click(Sender: TObject);
begin
ShellExecute(self.Handle,'open','d:\winnt\System32\calc.exe','','d:\winnt\system32',SW_SHOW);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
ShellExecute(self.Handle,'open','d:\winnt\System32\calc.exe','','d:\winnt\system32',SW_SHOW);
end;
