在线时间:8:00-16:00
迪恩网络APP
随时随地掌握行业动态
扫描二维码
关注迪恩网络微信公众号
http://www.02t.cn/article/code/102.html
https://msdn.microsoft.com/en-us/library/windows/desktop/ms687393(v=vs.85).aspx
一段代码,从2007转到XE 下,编译,运行,发现 WinExec 不能运行指定的EXE文件,换成 ShellExecute 虽然可以了。
2007下2种方式都能运行 procedure TForm1.Button1Click(Sender: TObject); var sfile: string; begin sfile := 'c:\windows\notepad.exe'; WinExec(PChar(sfile), SW_SHOWNORMAL) // WinExec('c:\windows\notepad.exe', SW_SHOWNORMAL) end; XE XE7下,只有第二种能运行,就是文件名 不能使用变量。 procedure TForm1.Button1Click(Sender: TObject); var sfile: string; begin sfile := 'c:\windows\notepad.exe'; WinExec(PAnsiChar(sfile), SW_SHOWNORMAL) // WinExec('c:\windows\notepad.exe', SW_SHOWNORMAL) end;
|
2023-10-27
2022-08-15
2022-08-17
2022-09-23
2022-08-13
请发表评论