Форум: "KOL";
Текущий архив: 2007.06.03;
Скачать: [xml.tar.bz2];
ВнизКак перехватить сообщения без KOL applet и Form.OnMessage Найти похожие ветки
← →
Psychedelic © (2006-10-13 14:22) [0]Всем привет. Как можно перехватывать все сообщения (message) (WindowProc),
но БЕЗ помощи KolApplet и Form.OnMessage . Чисто в образовательных целях. Вобщем не кидая компонентов. На API в кол.
← →
Thaddy (2006-10-13 15:07) [1]program Project1;
uses
Windows, Messages, kol, objects;
var
wClass: TWndClass;
Msg: TMsg;
Handle:Hwnd;
Stream:PStream;
i:integer;
UtilWindowClass: TWndClass = (
style: 0;
lpfnWndProc: @DefWindowProc;
cbClsExtra: 0;
cbWndExtra: 0;
hInstance: 0;
hIcon: 0;
hCursor: 0;
hbrBackground: 0;
lpszMenuName: nil;
lpszClassName: "KOLFakeUtilWindow");
function WindowProc(hWnd,Msg,wParam,lParam:Integer):hwnd; stdcall;
begin
if Msg = WM_DESTROY then PostQuitMessage(0);
Result := DefWindowProc(hWnd,Msg,wParam,lParam);
end;
begin
wClass.lpszClassName:= "CN";
wClass.lpfnWndProc := @WindowProc;
wClass.hInstance := hInstance;
wClass.hbrBackground:= 1;
RegisterClass(wClass);
Handle := CreateWindowEx(WS_EX_TOOLWINDOW, UtilWindowClass.lpszClassName,
"", WS_POPUP {!0}, 0, 0, 0, 0, 0, 0, HInstance, nil);
Stream := NewWriteFilestream("c:\Test.log");
for i := 0 to 9 do
postmessage(Handle,WM_USER,i,0);
while GetMessage(Msg,0,0,0) do
begin
Stream.WriteStr(Int2Hex(msg.message,4)+" "+Int2Str(msg.wparam));
DispatchMessage(Msg);
end;
Stream.free;
end.
← →
Thaddy (2006-10-13 15:13) [2]Better:
program Project1;
uses
Windows, Messages, kol, objects;
var
Msg: TMsg;
Handle:Hwnd;
Stream:PStream;
i:integer;
UtilWindowClass: TWndClass = (
style: 0;
lpfnWndProc: @DefWindowProc;
cbClsExtra: 0;
cbWndExtra: 0;
hInstance: 0;
hIcon: 0;
hCursor: 0;
hbrBackground: 0;
lpszMenuName: nil;
lpszClassName: "KOLFakeUtilWindow");
function WindowProc(hWnd,Msg,wParam,lParam:Integer):hwnd; stdcall;
begin
if Msg = WM_DESTROY then PostQuitMessage(0);
Result := DefWindowProc(hWnd,Msg,wParam,lParam);
end;
begin
Handle := CreateWindowEx(WS_EX_TOOLWINDOW, UtilWindowClass.lpszClassName,
"", WS_POPUP {!0}, 0, 0, 0, 0, 0, 0, HInstance, nil);
Stream := NewWriteFilestream("c:\Test.log");
for i := 0 to 9 do
postmessage(Handle,WM_USER,i,0);
while GetMessage(Msg,0,0,0) do
begin
Stream.WriteStr(Int2Hex(msg.message,4)+" "+Int2Str(msg.wparam)+" ");
DispatchMessage(Msg);
end;
Stream.free;
end.
Страницы: 1 вся ветка
Форум: "KOL";
Текущий архив: 2007.06.03;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.035 c