11.09.2008, 12:19
|
|
Постоянный
Регистрация: 15.06.2008
Сообщений: 941
Провел на форуме:
5111568
Репутация:
2399
|
|
_GlaD1aT(OR)_, попробуй сделать так:
откров файл ICQClient.pas и измени строчку:
Код:
procedure TICQClient.Login(Status: LongWord = S_ONLINE; BirthDay: Boolean = False);
на
Код:
function TICQClient.Login(Status: LongWord = S_ONLINE; BirthDay: Boolean = False):boolean;
....//в сааамом конце:
FSock.Connect;
RESULT:=TRUE;
end;
и в коде делай так:
Код:
if ICQClient1.Login=false then
begin showmessage('CONNECT ERROR'); exit; end;
showmessage('CONNECTER');
Form1.Caption:=('Статус: Online')
...
ПОМОГИТЕ МНЕ єЩО РЕБЯТА! МНЕ НАДО СПРЯТАТЬ КЛЮЧ В ФАЙЛЕ)) |
|
|