TICQLib ist eine Komponente um einen ICQ-Client zu programmieren (
http://sourceforge.net/projects/ticqlib)
Um den Status abzufragen müsste eigentlich folgendes gehen:
Delphi-Quellcode:
procedure TForm1.ICQClient1Login(Sender: TObject);
begin
icqclient1.AddContact(000000000); // Deine Nummer
end;
procedure TForm2.ICQClient1OnlineInfo(Sender: TObject; UIN: string; Port: Word;
InternalIP, ExternalIP: string; OnlineTime: TDateTime; Idle: Word; ICQVersion,
MirandaVersion: Cardinal; ProtoVer, UserCaps: Byte);
begin
if UIN='000000000' then showmessage('online');
end;
procedure TForm2.ICQClient1UserOffline(Sender: TObject; UIN: string);
begin
if UIN='000000000' then showmessage('offline');
end;