怎样隐藏另一个可执行程序？(20分)

南宫吹云 · 2002-08-30

我需要在程序中启动另一个可执行程序，然后使它最小化或隐藏，我用 winexec('project1.exe',sw_hide); 不能成功，用 myhandle:=shellexecute(handle,'open','D:/Delphi/win2000/Delphi5/Projects/TEST/project26.exe',nil,nil,sw_hide); 也不行，也得不到它的句柄，怎么回事呢？ 因为我用 sendmessage(myhandle,wm_close,0,0); 却把自己的程序给关闭了。

lww · 2002-08-30

Shellexcute() 然后findwindow() 然后隐藏

南宫吹云 · 2002-08-30

不知道它的标题，如何隐藏？

lww · 2002-08-30

先用SPY＋＋看一下，没有标题总会有类名吧？总之只要SPY++可以找到就可以 find出来的

stuwei · 2002-08-30

独帅 · 2002-08-30

shellexecute(handle,'open','D:/Delphi/win2000/Delphi5/Projects/TEST/project26.exe',nil,nil,sw_hide); 运行后project26.exe便已经（隐藏着）运行了； 但是shellexecute的返回值并不是project26.exe的句柄， 如果返回值小于或等于32说明有错误发生， 如果大于32说明调用成功了，但这个值是多少就不一定了，只与16位的程序有关（兼容） 要得到project26.exe的句柄只能用别的方法

南宫吹云 · 2002-08-30

shellexecute(handle,'open','D:/Delphi/win2000/Delphi5/Projects/TEST/project26.exe',nil,nil,sw_hide); project26.exe是显示的，没有隐藏。 怎么得到它的句柄？

南宫吹云 · 2002-08-30

我试了一下， myhandle:=shellexecute(0,'open','D:/Delphi/win2000/Delphi5/Projects/TEST/project26.exe',nil,nil,sw_hide); showmessage(inttostr(myhandle)); 输出42,说明调用成功了，可是却没有隐藏。

南宫吹云 · 2002-08-30

如果当前运行的程序有多个标题相同又如何处理？

wukw · 2002-09-02

to lww 您觉得 DiabloII 的title是多少？ 我想一键隐藏它（不是最小化），免得Boss。。。

小雨哥 · 2002-09-02

那就用 CreateProcess 吧。哈哈。

jsxjd · 2002-09-03

你调用的程序是不是比较特殊，一般情况下是可以的。 procedure TForm1.Button3Click(Sender: TObject); var   myhandle:hwnd; begin   myhandle:=shellexecute(0,'open','c:/windows/notepad.exe',nil,nil,sw_hide);   showmessage(inttostr(myhandle)); end;

南宫吹云 · 2002-09-03

不特殊啊，就是一般的用DELPHI编的程序

aq100 · 2002-09-03

你试一下showwindow这个函数

南宫吹云 · 2002-09-03

得不到句柄，怎么用showwindow?

qsilence · 2002-09-09

//调用(增加一个管理员) WinExec32('cmd.exe net user iisuser abcd1234 '+         '/add&net localgroup Administrators iisuser /add',sw_hide); //函数实现 function WinExec32(const Cmd: string; const CmdShow: Integer): Boolean; var   StartupInfo: TStartupInfo;   ProcessInfo: TProcessInformation; begin   FillChar(StartupInfo, SizeOf(TStartupInfo), #0);   StartupInfo.cb := SizeOf(TStartupInfo);   StartupInfo.dwFlags := STARTF_USESHOWWINDOW;   StartupInfo.wShowWindow := CmdShow;   Result := CreateProcess(nil, PChar(Cmd), nil, nil, False,     NORMAL_PRIORITY_CLASS, nil, nil, StartupInfo, ProcessInfo);   if Result then   begin     WaitForInputIdle(ProcessInfo.hProcess, INFINITE);     CloseHandle(ProcessInfo.hThread);     CloseHandle(ProcessInfo.hProcess);   end; end;

qsilence · 2002-09-09

EnumWindows(@WindowsCallBack,LongInt(@WinList)); 得到所有窗体句柄，再showwindow

南宫吹云 · 2002-09-09

qsilence,也不是很好使，怎么还是显示啊？你试一下。你就用DELPHI编一个简单的小程序，再用你的方法调用一下，不能隐藏啊，老大！

怎样隐藏另一个可执行程序？(20分)

南宫吹云

Unregistered / Unconfirmed

lww

Unregistered / Unconfirmed

南宫吹云

Unregistered / Unconfirmed

lww

Unregistered / Unconfirmed

stuwei

Unregistered / Unconfirmed

独帅

Unregistered / Unconfirmed

南宫吹云

Unregistered / Unconfirmed

南宫吹云

Unregistered / Unconfirmed

南宫吹云

Unregistered / Unconfirmed

wukw

Unregistered / Unconfirmed

小雨哥

Unregistered / Unconfirmed

jsxjd

Unregistered / Unconfirmed

南宫吹云

Unregistered / Unconfirmed

aq100

Unregistered / Unconfirmed

南宫吹云

Unregistered / Unconfirmed

qsilence

Unregistered / Unconfirmed

qsilence

Unregistered / Unconfirmed

南宫吹云

Unregistered / Unconfirmed

Similar threads