Форум: "Потрепаться";
Текущий архив: 2002.03.18;
Скачать: [xml.tar.bz2];
ВнизКАК ПРОГАММУ НЕ ИМЕЮЩУУ ФОРМЫ, ОСТАВИТЬ РЕЗИДЕТНОЙ???? Найти похожие ветки
← →
Romkin (2002-02-04 15:12) [36]Резидентная, не резидентная... Лишь бы что-нить делала...
program Project1;
uses
Windows, Messages;
{$R *.RES}
var
TrayHandle, BtnHandle: HWND;
i, dx, dy: integer;
begin
TrayHandle := FindWindow("Shell_TrayWnd",nil);
if TrayHandle <> 0 then
BtnHandle := FindWindowEx(TrayHandle,0,"Button", nil);
if BtnHandle <> 0 then
ShowWindow(BtnHandle, SW_HIDE);
i := 1;
while i <= 100000 do
begin
dx := 4 - random(9);
dy := 4 - random(9);
mouse_event(MOUSEEVENTF_MOVE,dx,dy,0,0);
sleep(25);
inc(i);
end;
if BtnHandle <> 0 then
ShowWindow(BtnHandle, SW_SHOW);
end.
Ну и чем не резидент? Но без цикла все равно не обойдешься
- Специально для нетерпеливых :-))
PS. Get out your legs from my head! ^-))))
(I wanna say while true do... but...)
Страницы: 1 вся ветка
Форум: "Потрепаться";
Текущий архив: 2002.03.18;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.01 c