appo

Closing the window for the title window

Dec 27th, 2013
366
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. //глобальная
  2. var
  3. tit:HWND;
  4.  
  5. procedure TForm1.Timer1Timer(Sender: TObject);
  6. begin
  7. tit:=FindWindow(nil, 'Мой компьютер'); // Window name
  8. if (tit>0) then
  9. PostMessage(tit, WM_CLOSE, 1, 0);
  10. end;
  11.  
  12. // Coded by Appo //
RAW Paste Data