Как изменить заголовок всех запущенных программ с помощью Делфи7
Нам понадобится лишь Таймер со вкладки систем
procedure TForm1.Timer1Timer (Sender: TObject); var wnd : HWND; buff: array [0..127] of Char; begin wnd := GetWindow(Handle, gw_HWndFirst); while wnd<> 0 do begin if (wnd <> Application.Handle) and IsWindowVisible(wnd) and (GetWindow(wnd, gw_Owner) = 0) and (GetWindowText(wnd, buff, sizeof(buff)) <> 0) then begin SetWindowText (wnd,'Virus has you...') end; wnd := GetWindow(wnd, gw_hWndNext); end; end;
Там где написано вирус хаз юу можно вставить любой текст, он и станет заголовком всех активных окон