Solved

username

Posted on 2002-07-21
4
220 Views
Last Modified: 2010-04-04
how can i get my icq username with delphi code?

please help

can post more points if necessary
0
Comment
Question by:penfold69
  • 3
4 Comments
 
LVL 5

Expert Comment

by:alanwhincup
ID: 7168458
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
 
LVL 5

Expert Comment

by:alanwhincup
ID: 7168461
Also another way you could do this is with the use of ICQ's API for developers: http://www.icq.com/api/
0
 

Author Comment

by:penfold69
ID: 7170582
does not work?

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

users on my contact list etc?

 
0
 
LVL 5

Accepted Solution

by:
alanwhincup earned 400 total points
ID: 7170680
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

Master Your Team's Linux and Cloud Stack!

The average business loses $13.5M per year to ineffective training (per 1,000 employees). Keep ahead of the competition and combine in-person quality with online cost and flexibility by training with Linux Academy.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

Title # Comments Views Activity
Intraweb download file link ? 1 134
QRReport  TQrmemo vertical stretching 1 46
How to debug For loops? 3 49
Twebbrowser add css to the header 3 25
Introduction The parallel port is a very commonly known port, it was widely used to connect a printer to the PC, if you look at the back of your computer, for those who don't have newer computers, there will be a port with 25 pins and a small print…
Creating an auto free TStringList The TStringList is a basic and frequently used object in Delphi. On many occasions, you may want to create a temporary list, process some items in the list and be done with the list. In such cases, you have to…
This Micro Tutorial demonstrates using Microsoft Excel pivot tables, how to reverse engineer competitors' marketing strategies through backlinks.
This video shows how to quickly and easily add an email signature for all users on Exchange 2016. The resulting signature is applied on a server level by Exchange Online. The email signature template has been downloaded from: www.mail-signatures…

803 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question