winexec是16位代码,,有时会被杀软误报。。;另外winexec不能指定默认目录,有时启动的外部程序会出错!
在使用,ShellExecute 启动外部程序的时候,,如果这个外部程序不是和你的程序在同一个目录里,一定要指定一下,默认目录。例如,你启动的是 c:\windows\2.exe ,加上他的默认目录,如下:
ShellExecute(Handle,'open','拆好c:\windows\2.exe', nil, {这里写2.exe的默认目录}'旅中铅c:\windows\', SW_NORMAL)
你的意思是不是,象你这样写,就是先启动hypmain.exe 完以后才启动的2.exe!你想在同一时间启动这两个程序!
其实你就直接写成如下的,,时间间隔也就是几毫秒而已:
procedure TForm1.XPButton2Click(Sender: TObject)
begin
if (suiedit1.Text='1234'培纯)and(suiedit2.Text='1234') then
begin
ShellExecute(self.Handle,'open','internet\hypmain.exe', nil, nil, SW_NORMAL)
ShellExecute(self.Handle,'open','c:\windows\2.exe ', nil, nil, SW_NORMAL)
end
else
begin
Showmessage('输入的用户名或密码错误!')
end
end
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)