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

Вниз

Hook: что неправильно?   Найти похожие ветки 

← →
Alx2   (2002-02-13 12:08) [2]

>Виктор Щербаков © (13.02.02 12:04)

>Используй WM_COPYDATA для передачи строки целиком.
Спасибо, сейчас попробую...

>В первом варианте указатель на что ты передаешь?
Хорошо, а почему тогда всегда работает такой вот бред:

Function ShellProc(nCode: Integer; WPARAM, LPARAM: Integer): Integer; Stdcall;
Var
Str : String;
CBTCreateWnd: PCBTCreateWnd Absolute LPARAM;
Begin
Result := CallNextHookEx(hhk, nCode, WPARAM, LPARAM);
If (nCode = HCBT_CREATEWND) And (Pointer(LPARAM) <> Nil) And (CBTCreateWnd^.lpCs <> Nil) Then
Begin
If MyWindow = 0 Then
MyWindow := FindWindow("TWatcherForm", "WatcherForm");
Str := intToStr(Random(1000000));
SendMessage(MyWindow, WM_SETTEXT, 8101973, Integer(PChar(Str)));
End;
End;


---

Страницы: 1 вся ветка

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

Наверх

Память: 0.43 MB
Время: 0.006 c