How to find a window by its (partial) title and close it How can I close an unwanted popup window using its partial title? I have tried destroywindow, however, it cannot close the window I want to close. -------------------------------------------------------------------- Well, first you need to get a handle to the window. The following code can find a window by window title (even a partial title, and is case insensisitive) . function HWndGet( partialTitle: string ): hWnd; var hWndTemp: hWnd; iLenText: Integer; cTitletemp: array [0..254] of Char; sTitleTemp: string; begin hWndTemp := FindWindow(nil, nil); {Find first window and loop through all subsequent windows in the master window list} while hWndTemp <> 0 do begin {Retrieve caption text from current window} iLenText := GetWindowText(hWndTemp, cTitletemp, 255); sTitleTemp := cTitletemp; sTitleTemp := UpperCase(copy( sTitleTemp, 1, iLenText)); {Clean up the return string, preparing for case insensitive comparison. Use appropriate method to determine if the current window's caption either starts with or contains passed string} partialTitle := UpperCase( partialTitle ); if pos( partialTitle, sTitleTemp ) <> 0 then break; {Get next window in master window list and continue} hWndTemp := GetWindow(hWndTemp, GW_HWNDNEXT); end; result := hWndTemp; end; Once you have the handle you then send the window a WM_CLOSE or WM_QUIT message. For example: var theHandle: THandle; begin theHandle := HWndGet('Apps Title'); if theHandle <> 0 then SendMessage(theHandle, WM_CLOSE, 0, 0); { or SendMessage(theHandle, WM_QUIT, 0, 0); } end; 發表人 - flyup 於 2003/01/14 23:55:00 發表人 - flyup 於 2003/01/14 23:57:30

很有用的功能...我把它改成Delphi...

function HWndGet(PartTitleText:string):HWND;
var h:HWND;
    WndText:array[0..254] of char;
    WTLength:integer;
begin
  PartTitleText:=UpperCase(PartTitleText);
  h:=FindWindow(nil,nil);
  while h<>0 do
    begin
      WTLength:=GetWindowText(h,WndText,255);
      if Pos(PartTitleText,UpperCase(String(WndText)))>0 then break;
      h:=GetWindow(h,GW_HWNDNEXT);
    end;
  Result:=h;
end;    procedure TForm1.Button1Click(Sender: TObject);
var h:HWND;
begin
  h:=HWndGet('Apps Title');
  if h<>0 then
    SendMessage(h,WM_CLOSE,0,0);
end;

發表人 - 00156 於 2003/01/15 21:28:14 發表人 - 00156 於 2003/01/15 21:29:29

是否僅有以Timer定時得知執行程式再將它停止? 是否有方法在有新程式被執行時立即得知它?

同學!同學! 這以前我作過,我的方法比較笨, 但可以用用看 用Timer將前一次的windowsTitle存放到一個暫存的Stringlists,  然後在下一次存到另一個Strintlist, 兩相比較, 就知道誰是新的WindowTitle 了, 這樣回答還滿意嗎? 努力會更接近成功

------
努力會更接近成功