Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Delphi Skype und Benutzerkontensteuerung!!! (https://www.delphipraxis.net/119946-skype-und-benutzerkontensteuerung.html)

vit4l 3. Sep 2008 14:23


Skype und Benutzerkontensteuerung!!!
 
Hallo ich habe folgendes Problem,
Ich habe In Delphi ein kleines Programm geschrieben, dass mit Skype kommuniziert. Das Problem ist, dass wenn ich bei Windows Vista die Benutzerkontensteuerung aktiviere, skype durch mein Programm nicht gestartet wird bzw das Programm sich mit Skype nicht verbindet, es sei denn ich führe meine exe Datei als Administrator mit Rechtem Mausklick aus. Weiss jemand wie man das umgehen kann, ohne Benutzerkontensteuerung zu deaktivieren...?

Vielen dank schon mal für euere Hilfe

Dezipaitor 3. Sep 2008 14:27

Re: Skype und Benutzerkontensteuerung!!!
 
Skype braucht Adminrechte? Seeehr merkwürdig.

Wie rufst du denn Skype auf? Code?

vit4l 3. Sep 2008 14:32

Re: Skype und Benutzerkontensteuerung!!!
 
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;


Alle Zeitangaben in WEZ +1. Es ist jetzt 13:18 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz