RasConnectionNotification, определение дисконнекта [D7, WinXP]
Dmitry_177 © (2005-11-25 14:48:00)
Как мне определить дисконнект в моей звонилке использующую
RASAPI? Что-то сотворил такое... если что неправильно подскажите
пожалуйста:
var
hActive: THandle;
procedure Disconnect;
begin
WaitForSingleObject(hActive, INFINITE);
.......мои действия при дисконнекте
end;
procedure RasCallBack(Msg: Integer; State: TRasConnState;
Error: Integer); stdcall;
var
SecAtt1, SecAtt2: TSecurityAttributes;
begin
case State of
RASCS_Connected:
begin
SecAtt1.nLength :=
SizeOf(TSecurityAttributes);
SecAtt1.lpSecurityDescriptor := nil;
SecAtt1.bInheritHandle := false;
SecAtt2.nLength :=
SizeOf(TSecurityAttributes);
SecAtt2.lpSecurityDescriptor := nil;
SecAtt2.bInheritHandle := false;
hActive := CreateEvent(@SecAtt1, true,
false, 'Disconnect');
RasConnectionNotification(hRas, hActive,
RASCN_Disconnection);
CreateThread(SecAtt2, 0, @Disconnect,
nil, 0, nil);
end;
end;
...
end;
и правильно ли я делаю создав две переменные SecAtt1, SecAtt2
типа TSecurityAttributes? чтобы одну вставить в CreateEvent а
друнгую в CreateThread? или надо там "nil" писать, или надо одну
переменную типа TSecurityAttributes и там м там написать?
Дмитрий_05 (2005-11-25 19:47:00) [1]
у меня почему-то ошибка на CreateThread(nil, 0, @Disconnect,
nil, 0, nil); выскакивает...((( [Error] Unit1.pas(293): Types of
actual and formal var parameters must be identical что я делаю не
так?
Наверх 
ЧАТ |
Орешник |
|
