Skype und Benutzerkontensteuerung!!!

[vit4l]

Es ist nicht Skype der Admin Rechte braucht, sondern ich möchte skype in meinem Programm starten, nachdem ich geprüft habe, ob skype nicht bereits schon läuft.

Delphi-Quellcode:

procedure TForm2.FormCreate(Sender: TObject);
var
  ErrorMessage: string;
  ErrorType: integer;
begin
  if IsSkypeReady(ErrorMessage, ErrorType) then
  begin
    cbSkypeReady.Checked := true;
    //wenn Skype bereit ist wird eine Instanz von Sykpe erzeugt
    Skype := TSkype.Create(nil);
    //Das Programm verbindet sich mit Skype
    Skype.Attach(4, true);
  end
  else
  begin
    cbSkypeReady.Checked := false;
    if ErrorType = 0 then
    showMessage('Skype ist nicht installiert!')
    //Application.MessageBox(PChar(ErrorMessage), 'Fehler', MB_ICONERROR + MB_OK);
    else
    begin
      if RunSkype = false then
      //Application.MessageBox('Skype ist nicht ordnungsgemäß konfiguriert!', 'Fehler', MB_OK + MB_ICONERROR)
      else
      begin
        //wenn skype vom dem Programm gestartet wurde wird hier eine Instanz von Skype erzeugt
        //und das Programm verbindet sich mit Skype
        cbSkypeReady.Checked := true;
        Skype := TSkype.Create(nil);
        Sleep(10000);
        if RunSkype then
        begin
          Skype.Attach(4, true);
        end
        else
        showMessage('Konnte mit Skype nicht verbunden werden');
      end;
    end;
  end;
end;