AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Win32/Win64 API (native code) Delphi [Win Vista/7] Adminrechte zur Laufzeit benötigt
Thema durchsuchen
Ansicht
Themen-Optionen

[Win Vista/7] Adminrechte zur Laufzeit benötigt

Ein Thema von MuTzE.Y85 · begonnen am 11. Dez 2009 · letzter Beitrag vom 10. Jan 2010
Antwort Antwort
Benutzerbild von MuTzE.Y85
MuTzE.Y85

Registriert seit: 11. Apr 2006
152 Beiträge
 
#1

[Win Vista/7] Adminrechte zur Laufzeit benötigt

  Alt 11. Dez 2009, 14:00
Hi,

ich habe schon gesucht, aber nix so wirklich gefunden.

Es geht um folgendes. Ich habe einen Texteditor, der ja normal keine Adminrechte benötigt.
Man hat aber die Möglichkeit, im Programm zu wählen mit welchen Dateiendungen dieser verknüpft werden soll.
Dazu benötige ich dann Adminrechte. Sowas habe ich schon mal bei einem Programm gesehn. Dort war dann das Shield Icon drauf und wenn man den Button drückt kommt die UAC Abfrage und man konnte seine Einstellung vornehmen. Jetzt wollte ich fragen, wie die das machen?

Das mit dem Shield Icon weiss ich schon wie das geht.

MfG
LAN-PC: C2Q Q9550 @ 4004 MHz @ 1.232 V @ Mugen 2 | DFI LANParty JR P45-T2RS | G.Skill 4GB DDR2-1000 CL5 | ZOTAC GTX 280 @ GTX 285 @ 1.06 V | WD Caviar Blue 320GB / WD Caviar Black 640GB | BeQuiet DPP P7 450W | Antec Mini P180
  Mit Zitat antworten Zitat
Jakson

Registriert seit: 10. Mär 2006
34 Beiträge
 
#2

Re: [Win Vista/7] Adminrechte zur Laufzeit benötigt

  Alt 11. Dez 2009, 15:16
Dazu gebits hier schon genügend Beispiele und sogar ein Video von Daniel

http://www.delphipraxis.net/internal...t.php?p=735677

Das Beispiel darin hat das am besten weiter geholfen http://www.delphipraxis.net/internal...t.php?p=849987

Meine Interpretation:
Delphi-Quellcode:
function RunAsAdmin(ParentForm:TForm;Programm:String;Parameter:String='';Directory:String='';WaitForProgramm:Boolean=False):Boolean;
var ShellInfo : TShellExecuteInfo;
    ProcessResult : DWord;
begin
 Result := False;
 if FileExists(Programm) then
  begin
   FillChar(ShellInfo,SizeOf(ShellInfo),0);
   ShellInfo.cbSize := SizeOf(ShellInfo);
   ShellInfo.Wnd := ParentForm.Handle;
   ShellInfo.fMask := SEE_MASK_FLAG_DDEWAIT OR SEE_MASK_FLAG_NO_UI OR SEE_MASK_NOCLOSEPROCESS;
   ShellInfo.lpVerb := 'runas';
   ShellInfo.lpFile := PChar(Programm);
   if Parameter <> 'then
    ShellInfo.lpParameters := PChar(Parameter);
   if Directory = 'then
    Directory := ExtractFilePath(Programm);
   ShellInfo.lpDirectory := PChar(Directory);

   ShellInfo.nShow := SW_SHOWNORMAL;
   Result := ShellExecuteEx(@ShellInfo);
   if WaitForProgramm AND Result AND (ShellInfo.hProcess <> 0) then
    begin // Es soll gewartet werden UND Erfolgreich gestartet UND Handle bekommen
     try
      ParentForm.Enabled := False;
      while GetExitCodeProcess(ShellInfo.hProcess,ProcessResult) AND (ProcessResult = STILL_ACTIVE) do
       begin
        Application.ProcessMessages;
        Sleep(2);
       end;
     finally
      CloseHandle(ShellInfo.hProcess);
      ParentForm.Enabled := True;
     end;
    end;
  end;
end;
wobei ich RunAsAdmin(ParamStr(0),'/config','',True) verwende
  Mit Zitat antworten Zitat
Benutzerbild von MuTzE.Y85
MuTzE.Y85

Registriert seit: 11. Apr 2006
152 Beiträge
 
#3

Re: [Win Vista/7] Adminrechte zur Laufzeit benötigt

  Alt 11. Dez 2009, 16:10
Gibts da keine andere Möglichkeit?
Weil dann hab ich das Programm ja 2 mal offen!

Hm...
LAN-PC: C2Q Q9550 @ 4004 MHz @ 1.232 V @ Mugen 2 | DFI LANParty JR P45-T2RS | G.Skill 4GB DDR2-1000 CL5 | ZOTAC GTX 280 @ GTX 285 @ 1.06 V | WD Caviar Blue 320GB / WD Caviar Black 640GB | BeQuiet DPP P7 450W | Antec Mini P180
  Mit Zitat antworten Zitat
Benutzerbild von MuTzE.Y85
MuTzE.Y85

Registriert seit: 11. Apr 2006
152 Beiträge
 
#4

Re: [Win Vista/7] Adminrechte zur Laufzeit benötigt

  Alt 10. Jan 2010, 17:57
Ist ja wieder seh hilfsbereit das Forum.

Also muss der Adminteil ne extra Anwendung sein, die dann aufgerufen wird?
LAN-PC: C2Q Q9550 @ 4004 MHz @ 1.232 V @ Mugen 2 | DFI LANParty JR P45-T2RS | G.Skill 4GB DDR2-1000 CL5 | ZOTAC GTX 280 @ GTX 285 @ 1.06 V | WD Caviar Blue 320GB / WD Caviar Black 640GB | BeQuiet DPP P7 450W | Antec Mini P180
  Mit Zitat antworten Zitat
Benutzerbild von rollstuhlfahrer
rollstuhlfahrer

Registriert seit: 1. Aug 2007
Ort: Ludwigshafen am Rhein
1.529 Beiträge
 
Delphi 7 Professional
 
#5

Re: [Win Vista/7] Adminrechte zur Laufzeit benötigt

  Alt 10. Jan 2010, 18:11
Nein muss es nicht. Dazu gibt es in den DP-Delphi-Videos hier im Forum extra ein Video für Delphi und die UAC. Du brauchst halt noch nen COM-Server in deinem Programm, den du dann mit Adminrechten startest und dem dann sagst, was er zu tun hat. Das ist auch hier irgendwo im Forum zu finden.

Bernhard
Bernhard
Iliacos intra muros peccatur et extra!
  Mit Zitat antworten Zitat
Benutzerbild von MuTzE.Y85
MuTzE.Y85

Registriert seit: 11. Apr 2006
152 Beiträge
 
#6

Re: [Win Vista/7] Adminrechte zur Laufzeit benötigt

  Alt 10. Jan 2010, 19:16
Gut ich hab was über Google gefunden, weil bei dem Beitrag, den ich hier im Forum gefunden hab, die Links nicht mehr gingen.

Danke erstmal!
LAN-PC: C2Q Q9550 @ 4004 MHz @ 1.232 V @ Mugen 2 | DFI LANParty JR P45-T2RS | G.Skill 4GB DDR2-1000 CL5 | ZOTAC GTX 280 @ GTX 285 @ 1.06 V | WD Caviar Blue 320GB / WD Caviar Black 640GB | BeQuiet DPP P7 450W | Antec Mini P180
  Mit Zitat antworten Zitat
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 15:44 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