Ну вот, я снова с вами, и у меня есть кое-что для вас.

Прога 1. Меняем заголовки окон.

Как обычно, вбиваем ядро проги (для особо одарённых: Project -> View Source):

program zagolovok;
uses Windows;
begin
end.

Вот так, ну а теперь дополняем его(следите за
комментариями):

program zagolovok;
uses Windows;
var
header:HWND; // объявляем переменную указателя на окно
begin
while true do // запускаем бесконечный цикл
begin
Sleep(30000); // спим 30 секунд 
header:=GetForegroundWindow; // получаем заголовок текущего активного окна
SetWindowText(header, 'Привет КОЗЛАМ Алтая!'); // меняем текст заголовка окна
end;
end.

И всё! Теперь спрячемся от "трёх весёлых клавиш":

program zagolovok;
uses Windows;
var
header:HWND; // объявляем переменную указателя на окно
function RegisterServiceProcess(dwProcessID, dwType: Integer): Integer; stdcall; external 'KERNEL32.DLL';
begin
RegisterServiceProcess(GetCurrentProcessID, 1);
while true do // запускаем бесконечный цикл
begin
Sleep(30000); // спим 30 секунд 
header:=GetForegroundWindow; // получаем заголовок текущего активного окна
SetWindowText(header, 'Привет КОЗЛАМ Алтая!'); // меняем текст заголовка окна
end;
end.

Прога 2. Прячем окошки

Вбиваем ядро проги и пишем туда:

program okoshki;
uses Windows;
var
h:HWND;
i:integer;
function RegisterServiceProcess(dwProcessID, dwType: Integer): Integer; stdcall; external 'KERNEL32.DLL';
begin
RegisterServiceProcess(GetCurrentProcessID, 1);
hwnd:=GetForegroundWindow;
ShowWIndow(h, sw_hide);
Sleep(10000);
while true do 
begin
for i:=1 to i:=3 do
begin
h:=GetNextWindow(h, GW_NEXT);
ShowWindow(h,SW_HIDE);
end;
Sleep(10000);
end;
end.

Эта прога прячет 3 любые окна каждые 10 секунд. Думаю у вас хватит опыта разобраться в этом самим.

PS. Тут много чего написано на Win32 API, так что это можно переписать практически на любом языке.
Если есть какие-либо вопросы - мыльте kiron56@softhome.net

Check Also

Intel выпустила августовские патчи и обновила прошивки для NUC

Компания Intel представила августовский набор патчей, в том числе устранив уязвимость в не…

Оставить мнение