|
|
| Тема |
 ICQ API & Delphi HELP |
|
| Автор | Yassen_with_capa (Нерегистриран) | |
| Публикувано | 22.09.00 13:04 |
|
|
|
Veche mi pisnA! Gati API-to! Ili az sam za ... kakvoto tam! ICMAPI.DLL ne mi vrashta notification:
________________________
function vUserFunc2(var iDock:integer):boolean; stdcall;
begin
Form1.Label6.Caption:='OK';
end;
.......
@vSetNotiFunction := GetProcAddress(vHandle, 'ICQAPIUtil_SetUserNotificationFunc');
@vRegNotify := GetProcAddress(vHandle, 'ICQAPICall_RegisterNotify');
.....
if @vSetNotiFunction<>nil then begin
// ICQAPINOTIFY_APPBAR_STATE_CHANGE 2
bNotiCode:=2;
bCallResult:=vSetNotiFunction(bNotiCode, @vUserFunc2);
if bCallResult then
Form1.Label5.Caption := Form1.Label5.Caption + ' + Set 2'
else Label1.Caption:='(-)';
end;
// VRASHTA OK
....
......
if @vRegNotify<>nil then begin
abEvents[0]:=0;
abEvents[1]:=1;
abEvents[2]:=2;
abEvents[3]:=3;
abEvents[4]:=4;
abEvents[5]:=5;
abEvents[6]:=6;
abEvents[7]:=7;
iCount:=sizeof(abEvents);
bCallResult:=vRegNotify(iVer, iCount, @abEvents);
if bCallResult then
Form1.Label3.Caption:='Register Notification OK'
else Form1.Label3.Caption:='(-)';
end;
// VRASHTA OK
....
__________________________________
I kato dock-na ICQ dzama v lyavo/dyasno - kiunec!!! Cheren i opushen!!!
Kakav e problemOt???
| |
| |
| 
|
|
