同上

解决方案 »

  1. handle := FIndwindow(nil,Exename)
    SendMessage(handle,WM_Close,0,0)
      

  2. 例如
    handle := FIndwindow(nil,'我的程序窗口标题')
    SendMessage(handle,WM_Close,0,0)
      

  3. procedure closeapp();
    function KillTask(ExeFileName: string): integer;
    const
      PROCESS_TERMINATE = $0001;
    var
      ContinueLoop: BOOL;
      FSnapshotHandle: THandle;
      FProcessEntry32: TProcessEntry32;
    begin
      result := 0;  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
          Result := Integer(TerminateProcess(OpenProcess(
            PROCESS_TERMINATE, BOOL(0),
            FProcessEntry32.th32ProcessID), 0));
        ContinueLoop := Process32Next(FSnapshotHandle,
          FProcessEntry32);
      end;
    end;
    begin
    killtask('micaps.exe');
    end;我自己用的,特别好................
      

  4. 问一下楼上的你的代码里面
    FProcessEntry32是什么呀,我怎么在帮助里面找不到呀
      

类似问题 »