L
legoog
Unregistered / Unconfirmed
GUEST, unregistred user!
是这样的，我要用CreateProcess函数隐藏运行我自己用delphi写的程序，有Form窗口！
设置了SW_HIDE还是不行？请问怎么会事？我试了Winexec和ShellExecute都不能隐藏运行？
（注意：除了DOS窗口可以隐藏运行，为什么win32程序没办法实现？？？？？）
代码如下：
procedure TForm1.Button1Click(Sender: TObject);
var
si: STARTUPINFO;
pi: PROCESS_INFORMATION;
begin
ZeroMemory(@si, sizeof(si));
si.cb := sizeof(si);
si.dwFlags := STARTF_USESHOWWINDOW;
si.wShowWindow := SW_HIDE; //设置了，无效？怎么办？
ZeroMemory(@pi, sizeof(pi));
if CreateProcess('C:/Windows/System32/Calc.exe', nil, nil, nil,
False, NORMAL_PRIORITY_CLASS, nil, nil, si, pi) then
begin
Form1.Caption := '运行成功';
end;
end;
设置了SW_HIDE还是不行？请问怎么会事？我试了Winexec和ShellExecute都不能隐藏运行？
（注意：除了DOS窗口可以隐藏运行，为什么win32程序没办法实现？？？？？）
代码如下：
procedure TForm1.Button1Click(Sender: TObject);
var
si: STARTUPINFO;
pi: PROCESS_INFORMATION;
begin
ZeroMemory(@si, sizeof(si));
si.cb := sizeof(si);
si.dwFlags := STARTF_USESHOWWINDOW;
si.wShowWindow := SW_HIDE; //设置了，无效？怎么办？
ZeroMemory(@pi, sizeof(pi));
if CreateProcess('C:/Windows/System32/Calc.exe', nil, nil, nil,
False, NORMAL_PRIORITY_CLASS, nil, nil, si, pi) then
begin
Form1.Caption := '运行成功';
end;
end;