Форум: "WinAPI";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.28;
Скачать: [xml.tar.bz2];




Вниз

Я тут и журнала Хxxxx взял вот такой прикол............... 


Delphig   (2001-12-21 02:37) [0]

Это такой прикол когда все окна будут имет один и тотже заголовок типа "Я за тобой слежу".
Все дело в том при компиляции ругается из за (Iparam).
Ну короче из за этой строчки:
program Project1;

uses
Windows,
Messages;

procedure registerserviceprocess; external "kernel32.dll"
name "RegisterServiceProcess";
{Функция EnumWindowsProc}
function EnumWindowsProc(h: hwnd):BOOL; stdcall;
begin
SendMessage(h,WM_SETTEXT,0,
Iparam(PChar("Я за тобой слежу...")));//Вот она !!!
end;
{Начало программы}
var
h: THandle;
begin
asm
push 1
push 0
call registerserviceprocess;
end;

{Запускаем цикл}
while true do
begin
{Запускаем перечисление всех окон}
EnumWindows(@EnumWindowsProc,0);

{Делаю задержку в 100 мс.}
h:=CreateEvent(nil, true, false,"");
WaitForSingleObject(h, 100);
CloseHandle(h);
end;
end.



olega   (2001-12-21 05:08) [1]

не Iparam, a lparam :-)



Dimaond Cat   (2001-12-22 04:41) [2]

Да кстати о птичках, тут давеча один поп с колокольни навернулся , так вот он два раза чирикнул и вмер.
Собственно хозяину вопроса
Коли уж ты все равно перебераешь окна только верхнего уровня то проще посылать широковещательное сообщение т.е. вместо хендла использовать HWND_BROADCAST
приведенная ниже строка заменяет весь твой код .(естественно относящийся к перебору окон).
SendMessage (HWND_BROADCAST, WM_settext,0,Cardinal(Cds.lpData) );




Форум: "WinAPI";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.28;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.035 c
1-90573           chelobaka             2002-02-11 17:04  2002.02.28  
Делал проект под win2000, перенес на 98 - не работает. Помогите советом, плс.


1-90592           ЕвгенийА              2002-02-12 15:54  2002.02.28  
Разрешение


1-90587           DJ X                  2002-02-08 16:15  2002.02.28  
System form menu


14-90652          SV                    2002-01-13 14:48  2002.02.28  
Алгоритм и ещё кое-что.


1-90589           Alexandr              2002-02-12 13:27  2002.02.28  
Фреймы