Windows版本:Windows 10
Delphi版本:Delphi 10.3
需求说明:让正常的图形界面程序或DOS程序,能够彻底隐藏踪迹,像NT程序一样在后台悄悄运行!!正常的程序,如果在运行时候,会有程序窗口,如果加入了在任务栏显示代码,最小化会在任务栏有图标!!这些我都不想要,我就想让这些正常程序运行时候,根本任何运行痕迹都看不到!!!
解决过程:
通常这样的程序,把运行的参数设置为SW_HIDE就可以了,但是,对于有些程序,这样设置是不可以的,当最小化时候,会在任务栏留有图标!!怎么办?创建虚拟桌面,让这个运行的程序在这个虚拟桌面中,这样,在当前运行程序的桌面中就看不到任何踪迹了!!
Delphi实现代码:
uses TLHelp32; // 判断进程是否运行用的单元const DesktopName: PChar = 'NewDesktop'; //虚拟桌面名称var desktopHandle: THandle; // 桌面handle{ 像NT程序一样在后台运行程序,前台看不到被运行程序 说明:无论要运行的程序是正常的图形界面程序,还是DOS程序,在运行程序的桌面中看不到它的任何运行的踪迹, 被运行的程序像NT程序一样悄悄在后台运行,即使这个程序正常运行时候最小化会在任务栏有图标!! 在任务管理器中会查看到被运行程序的进程!! 参数: fullExe:要运行程序的全路径名称 exeParam:要运行程序的参数 tempDesktopName:创建的虚拟桌面名称 tempDesktopHandle:创建的虚拟桌面Handle 返回值:是否运行成功}function RunInbackGround(fullExe: string; exeParam: string; tempDesktopName: string; var tempDesktopHandle: THandle): boolean;var isSuccess: boolean; // 是否运行成功的返回值 CmdLine: string; // 要执行的命令(要执行程序的全路径名称+参数) WorkingDirP: PChar; // 工作目录 StartupInfo: TStartupInfo; // 进程启动参数 ProcessInfo: TProcessInformation; // 进程信息 ErrorCode: integer; // 进程启动的错误代码 exeName: string; // 要执行程序名称 // 是否程序正在运行 function isExeRunning(exeName: string): boolean; var lppe: TProcessEntry32; isFound: boolean; Hand: THandle; tempName: string; // 程序名称 temp: boolean; // 返回值变量 judgePos: integer; // 扩展名判断位置 begin Hand := CreateToolhelp32Snapshot(TH32CS_SNAPALL, 0); lppe.dwSize := SizeOf(lppe); // 必须设置此值 isFound := Process32First(Hand, lppe); temp := false; // 返回的布尔值 // 程序名称变量 tempName := trim(exeName); // 扩展名分隔符位置 judgePos := Pos('.', tempName); // 判断是否有扩展名 if judgePos = 0 then begin tempName := tempName + '.exe'; // 添加".exe"扩展名 end else begin if Length(copy(tempName, judgePos, 4)) < 4 then begin // 删除不符合添加的扩展名 Delete(tempName, judgePos, (Length(tempName) - judgePos + 1)); // 添加".exe"扩展名 tempName := tempName + '.exe'; end; end; // 循环判断是否有相同名称程序 while isFound do begin // 判断当前程序名称和指定程序名称相同 if lppe.szExeFile = tempName then begin temp := true; Break; end; // Memo1.Lines.Add(IntToStr(i) + ' : ' +IntToStr(lppe.th32ProcessID)+' '+ StrPas(lppe.szExeFile)); isFound := Process32Next(Hand, lppe); end; result := temp; end;// 杀死进程 procedure KillProc(procName: string); const PROCESS_TERMINATE = $0001; var ExeFileName: String; ContinueLoop: Bool; FSnapshotHandle: THandle; FProcessEntry32: TProcessEntry32; begin ExeFileName := procName; FSnapshotHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0); FProcessEntry32.dwSize := SizeOf(FProcessEntry32); ContinueLoop := Process32First(FSnapshotHandle, FProcessEntry32); while integer(ContinueLoop) <> 0 do begin if ((UpperCase(ExtractFileName(FProcessEntry32.szExeFile)) = UpperCase(ExeFileName)) or (UpperCase(FProcessEntry32.szExeFile) = UpperCase(ExeFileName))) then TerminateProcess(OpenProcess(PROCESS_TERMINATE, Bool(0), FProcessEntry32.th32ProcessID), 0); ContinueLoop := Process32Next(FSnapshotHandle, FProcessEntry32); end; end;begin isSuccess := true; // 是否运行成功的返回值的默认值 { 一,创建用于存放要运行程序的虚拟桌面 } // 如果虚拟桌面没有创建,则创建 if tempDesktopHandle = 0 then begin tempDesktopHandle := CreateDesktop(PChar(tempDesktopName), nil, nil, 0, GENERIC_ALL, nil); end; { 二,运行指定的程序 } try // 要执行的命令(要执行程序的全路径名称+参数) CmdLine := '"' + trim(fullExe) + '" ' + trim(exeParam); WorkingDirP := nil; // 工作目录 exeName := ExtractFileName(fullExe); // 得到要运行的程序名称 // 如果要运行程序运行中,则先杀死它 if isExeRunning(exeName) = true then begin KillProc(exeName); // 杀死正在运行的程序 end; ZeroMemory(@StartupInfo, SizeOf(StartupInfo)); StartupInfo.cb := SizeOf(StartupInfo); StartupInfo.lpDesktop := DesktopName; // 设置启动程序的虚拟桌面(注意:这个参数才真正让运行的程序隐藏起来) StartupInfo.dwFlags := STARTF_USESHOWWINDOW; StartupInfo.wShowWindow := SW_HIDE; // 常规的隐藏运行程序窗口参数 // 创建要运行程序的进程(CREATE_NO_WINDOW是创建无窗口程序的参数) if not CreateProcess(nil, PChar(CmdLine), nil, nil, false, CREATE_NO_WINDOW, nil, WorkingDirP, StartupInfo, ProcessInfo) then begin isSuccess := false; ErrorCode := GetLastError; end; with ProcessInfo do begin CloseHandle(hThread); CloseHandle(hProcess); end; except on e: exception do begin isSuccess := false; end; end; result := isSuccess;end;
Delphi示例代码:
procedure TForm2.Button3Click(Sender: TObject);var FileName, Parameters: string;begin FileName := '要运行的程序,可以是图形界面也可以是DOS程序'; Parameters :='要运行程序的参数,没有就空'; if RunInbackGround(FileName, Parameters, DesktopName, desktopHandle) = true then begin showMessage('虚拟创建桌面完毕:' + IntToStr(desktopHandle)); showMessage('指定程序已经运行:' + FileName); end else begin showMessage('虚拟创建失败,指定程序没能运行!'); end;end;
联系客服