Closing the window for the title window
//глобальная var tit:HWND; procedure TForm1.Timer1Timer(Sender: TObject); begin tit:=FindWindow(nil, 'Мой компьютер'); // Window name if (tit>0) then PostMessage(tit, WM_CLOSE, 1, 0); end; // Coded by Appo //
//глобальная var tit:HWND; procedure TForm1.Timer1Timer(Sender: TObject); begin tit:=FindWindow(nil, 'Мой компьютер'); // Window name if (tit>0) then PostMessage(tit, WM_CLOSE, 1, 0); end; // Coded by Appo //
Comments