• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 227
  • Last Modified:

username

how can i get my icq username with delphi code?

please help

can post more points if necessary
0
penfold69
Asked:
penfold69
  • 3
1 Solution
 
alanwhincupCommented:
You could do it like this: Unsure if it works with all versions of ICQ though:

Just drop a TButton and TMemo on a form and then add the below code to the TButton's OnClick event. Also don't forget to add 'Registry' to the uses clause of the unit.

procedure TForm1.Button1Click(Sender: TObject);
var
  Reg : TRegistry;
  UINS : TStringList;
  I : Integer;
begin
  Memo1.Clear;
  UINS := TStringList.Create;
  Reg := TRegistry.Create;
  with Reg do
  begin
    try
      RootKey := HKEY_LOCAL_MACHINE;
      OpenKey('Software\Mirabilis\ICQ\Owners', False);
      GetKeyNames(UINS);
      for I := 0 to UINS.Count - 1 do
      begin
        CloseKey;
        OpenKey('Software\Mirabilis\ICQ\Owners\' + UINS[I], False);
        Memo1.Lines.Add(UINS[I] + ': ' + ReadString('Name'));
      end;
      CloseKey;
    finally
      Free;
    end;
  end;
end;

Cheers,

Alan
0
 
alanwhincupCommented:
Also another way you could do this is with the use of ICQ's API for developers: http://www.icq.com/api/
0
 
penfold69Author Commented:
does not work?

do u have any other code that can get details from ICQ ie

users on my contact list etc?

 
0
 
alanwhincupCommented:
I would just download and use the ICQ API from the link I gave you before. When you download it you'll probably notice that the examples to interface with the DLL are in C++ but you can get teh converted header files from http://www.delphi-jedi.org/Jedi:APILIBRARY:11273 . It's listed as Interface for ICQ.
0

Featured Post

Independent Software Vendors: We Want Your Opinion

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

  • 3
Tackle projects and never again get stuck behind a technical roadblock.
Join Now