var ch9:string;
begin
ch9:=ExtractFilePath(Application.ExeName);
ShellExecute(handle, 'Open',pchar(ch9+'KeyHook\KeyHook.exe'),nil, pchar(ch9+'KeyHook\'), sw_Show);
end;
begin
ch9:=ExtractFilePath(Application.ExeName);
ShellExecute(handle, 'Open',pchar(ch9+'KeyHook\KeyHook.exe'),nil, pchar(ch9+'KeyHook\'), sw_Show);
end;
ShellExecute(Application.Handle, nil, 'C:\WINDOWS\CALC.EXE'+#0, nil, nil, SW_SHOWNORMAL)
uses shellapi2)
winexec(pchar(filename),sw_show);
shellexecute(handle,'open','C:\Program Files\Tencent\qq2000b.exe',nil,nil,sw_shownormal);
winexec(pchar('C:\Program Files\Tencent\qq2000b.exe'),sw_show);
uses shellapi
winexec好象是以前的版本用,为了兼容,就留下了,
建议你最好用新的。
ShellExecute(handle,'open',PChar('notepad'),nil,nil,SW_SHOW);