首页 > 代码库 > 让程序后台隐藏运行
让程序后台隐藏运行
function exec_cmd_line(const sCmd: AnsiString; var nExitCode: Cardinal; nDefWaitTime: Cardinal = 10 * 1000): string;//const// aExitCode_CreateProcessError = 222;var si: TStartupInfoA; pi: TProcessInformation; //aCurrDir: string; //aRet: Cardinal;begin FillChar(si, SizeOf(si), #0); FillChar(pi, SizeOf(pi), #0);// Windows.GetStartupInfo(si); si.cb := SizeOf(si); si.dwFlags := STARTF_USESTDHANDLES + STARTF_USESHOWWINDOW; si.wShowWindow := SW_HIDE;//BOOL WINAPI CreateProcess(// LPCTSTR lpApplicationName,// LPTSTR lpCommandLine,// LPSECURITY_ATTRIBUTES lpProcessAttributes,// LPSECURITY_ATTRIBUTES lpThreadAttributes,// BOOL bInheritHandles,// DWORD dwCreationFlags,// LPVOID lpEnvironment,// LPCTSTR lpCurrentDirectory,// LPSTARTUPINFO lpStartupInfo,// LPPROCESS_INFORMATION lpProcessInformation//); if Windows.CreateProcessA( nil, // LPCTSTR lpApplicationName, // pointer to name of executable module PAnsiChar(sCmd), //LPTSTR lpCommandLine, // pointer to command line string nil, //LPSECURITY_ATTRIBUTES lpProcessAttributes, // pointer to process security attributes nil, //LPSECURITY_ATTRIBUTES lpThreadAttributes, // pointer to thread security attributes True, //BOOL bInheritHandles, // handle inheritance flag 0, //DWORD dwCreationFlags, // creation flags nil, //LPVOID lpEnvironment, // pointer to new environment block nil, //LPCTSTR lpCurrentDirectory, // pointer to current directory name si, //LPSTARTUPINFO lpStartupInfo, // pointer to STARTUPINFO pi //LPPROCESS_INFORMATION lpProcessInformation // pointer to PROCESS_INFORMATION ) then begin if Windows.WaitForInputIdle(pi.hProcess, INFINITE) <> 0 then begin end; if Windows.WaitForSingleObject(pi.hProcess, nDefWaitTime) = Windows.WAIT_TIMEOUT then Windows.TerminateProcess(pi.hProcess, Windows.WAIT_TIMEOUT); Windows.GetExitCodeProcess(pi.hProcess, nExitCode); end else begin nExitCode := GetLastError; end; //nExitCode := nExitCode mod 256;end;
http://bbs.2ccc.com/topic.asp?topicid=503890
让程序后台隐藏运行
声明:以上内容来自用户投稿及互联网公开渠道收集整理发布,本网站不拥有所有权,未作人工编辑处理,也不承担相关法律责任,若内容有误或涉及侵权可进行投诉: 投诉/举报 工作人员会在5个工作日内联系你,一经查实,本站将立刻删除涉嫌侵权内容。