用什么标识可以方便地找到特定程序？？(20分)

wab · 2002-12-30

有两个程序，一个实际程序，一个监视程序 用什么方法可以让监视程序方便地获得实际程序的句柄，除了标题外

LiChaoHui · 2002-12-30

使用FindApp,参数是程序的路径，就可以返回进程的ID     function FindApp(AppName: String): Integer;     function KillApp(ProcessId: Integer): Integer;     function IsRun(ProcessId: Integer): Boolean;     function IsBusy(ProcessId: Integer): Integer;     function RunApp(AppName, CmdLine: String; nCmdShow: Integer): Integer; function TCcfRunMonitor2.FindApp(AppName: String): Integer; var   PShot: THandle;   Pe: TProcessEntry32;   CanNext: Boolean;   ProcessId: Integer;   Found: Boolean;   function FindModule: Boolean;   var     MShot: THandle;     HasNext: Boolean;     Me: TModuleEntry32;     MfName: String;   begin     Result := False;     MShot := CreateToolhelp32Snapshot(TH32CS_SNAPMODULE, ProcessId);     Me.dwSize := SizeOf(Me);     HasNext := Module32First(MShot, Me);     while HasNext do     begin       MfName := Me.szExePath;       if SameText(MfName, AppName) then       begin         Result := True;         Break;       end;       HasNext := Module32Next(MShot, Me);         end;     CloseHandle(MShot);   end; begin   PShot := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);   Pe.dwSize := SizeOf(Pe);   ProcessId := 0;   Found := False;   CanNext := Process32First(PShot, Pe);   while CanNext do   begin     ProcessId := Pe.th32ProcessID;     if ProcessId > 0 then     begin       Found := FindModule;       if Found then Break;     end;     CanNext := Process32Next(PShot, Pe);   end;   CloseHandle(PShot);   if Found then Result := ProcessId else Result := 0;end; function TCcfRunMonitor2.GetServiceController: TServiceController; begin   Result := ServiceController; end; function TCcfRunMonitor2.IsBusy(ProcessId: Integer): Integer; var   Ph: THandle; begin   Ph := OpenProcess(PROCESS_ALL_ACCESS, false, ProcessId);   if Ph <> 0 then   begin     if WaitForInputIdle(Ph, 10) = WAIT_TIMEOUT then       Result := 1     else       Result := 0;     CloseHandle(Ph);   end   else Result := -1; end; function TCcfRunMonitor2.IsRun(ProcessId: Integer): Boolean; var   Ph: THandle; begin   Ph := OpenProcess(PROCESS_ALL_ACCESS, false, ProcessId);   if Ph <> 0 then   begin     Result := WaitForSingleObject(Ph, 0) = WAIT_TIMEOUT;     CloseHandle(Ph);   end   else Result := False; end; function TCcfRunMonitor2.KillApp(ProcessId: Integer): Integer; var   Ph: THandle; begin   Ph := OpenProcess(PROCESS_ALL_ACCESS, false, ProcessId);   if Ph <> 0 then   begin     Result := Integer(TerminateProcess(Ph, 2701));     CloseHandle(Ph);   end   else Result := 0; end; function TCcfRunMonitor2.RunApp(AppName, CmdLine: String;   nCmdShow: Integer): Integer; var   Sti: TStartupInfo;   Psi: TProcessInformation; begin   FillMemory(@Sti, SizeOf(Sti), 0);   Sti.wShowWindow := nCmdShow;   Sti.dwFlags := STARTF_USEFILLATTRIBUTE;   Sti.dwFillAttribute := FOREGROUND_INTENSITY or BACKGROUND_BLUE;   if CreateProcess(PChar(AppName), PChar(CmdLine),     nil, nil, False,     0, nil, PChar(ExtractFilePath(AppName)),     Sti, Psi) then   begin     Result := Psi.dwProcessId;   end   else Result := 0; end;

wab · 2002-12-30

还没测试，不过正是我所需要的，先给你分了，不行再请教您！！！

用什么标识可以方便地找到特定程序？？(20分)

wab

Unregistered / Unconfirmed

LiChaoHui

Unregistered / Unconfirmed

wab

Unregistered / Unconfirmed

Similar threads

用什么标识 可以方便地找到特定程序？？(20分)

wab

Unregistered / Unconfirmed

LiChaoHui

Unregistered / Unconfirmed

wab

Unregistered / Unconfirmed

Similar threads

用什么标识可以方便地找到特定程序？？(20分)