Hvordan? (ang. min Konsol igen)

Hvis man nu skriver ICQ, og ICQ allerede er startet, skal den ikke skrive :
ICQ Starter.....
ICQ Running
Men ICQ is allready started!
Hvordan gør man det?

koden checker om programmet kører, hvis man forsøger at starte ICQ igen bliver den lukket.

{$R *.DFM}


var
    MutexHandle: THandle;


begin
MutexHandle := CreateMutex(nil, TRUE, 'MyappICQ');
    if MutexHandle <> 0 then
      begin
          if GetLastError = ERROR_ALREADY_EXISTS then

          begin
              MessageBox(0, 'ICQ kører allerede.',
                            'Information', mb_IconHand);


            CloseHandle(MutexHandle);
              Halt; // 'Halt' er den som sørger for at programmet ikke
                    // kører i mere end en instance.
          end

              end;




  Application.Initialize;
  Application.Title := 'ICQ';
  Application.HelpFile := 'ICQ.hlp';
  Application.CreateForm(TForm1, Form1);
  Application.Run;

er lige med på en læser.  hehe
//dl

Jeg har også brug for, at få besvaret alle de andre spørgsmål ;)