| Autor |
Beitrag |
Hochhaus
      
Beiträge: 662
Erhaltene Danke: 8
Windows 7
Delphi XE2
|
Verfasst: Fr 21.01.11 02:48
Hallo allerseits !
Wie kann ich mit Delphi 6 überprüfen, ob mein Programm mit Administrator-Rechten läuft ? Danke im Voraus für die Antworten !
Gruss,
Hochhaus Moderiert von Martok: Topic aus Sonstiges (Delphi) verschoben am Fr 21.01.2011 um 09:03
|
|
jaenicke
      
Beiträge: 19339
Erhaltene Danke: 1752
W11 x64 (Chrome, Edge)
Delphi 12 Pro, C# (VS 2022), JS/HTML, Java (NB), PHP, Lazarus
|
Verfasst: Fr 21.01.11 02:53
Ab XP mit der Funktion IsUserAnAdmin aus der Shell32.dll:
msdn.microsoft.com/e...776463(v=vs.85).aspx
Für diesen Beitrag haben gedankt: Hochhaus
|
|
Hochhaus 
      
Beiträge: 662
Erhaltene Danke: 8
Windows 7
Delphi XE2
|
Verfasst: Fr 21.01.11 09:21
Danke ! Wie binde ich die Shell32.dll in mein Programm ein ?
|
|
jaenicke
      
Beiträge: 19339
Erhaltene Danke: 1752
W11 x64 (Chrome, Edge)
Delphi 12 Pro, C# (VS 2022), JS/HTML, Java (NB), PHP, Lazarus
|
Verfasst: Fr 21.01.11 09:23
Hier habe ich das im Hauptformular (Main.pas, in FormCreate) benutzt:
www.delphi-forum.de/viewtopic.php?t=93084
Bin grad auf Arbeit, sonst würde ich es direkt raussuchen. 
Für diesen Beitrag haben gedankt: Hochhaus
|
|
Hochhaus 
      
Beiträge: 662
Erhaltene Danke: 8
Windows 7
Delphi XE2
|
Verfasst: Fr 21.01.11 18:25
Sorry. Ich habe die Stelle trotz längerem Suchen nicht gefunden ...
Gruss, Hochhaus
|
|
Delphi-Laie
      
Beiträge: 1600
Erhaltene Danke: 232
Delphi 2 - RAD-Studio 10.1 Berlin
|
Verfasst: Fr 21.01.11 18:34
Hochhaus hat folgendes geschrieben : | | Wie kann ich mit Delphi 6 überprüfen, ob mein Programm mit Administrator-Rechten läuft ? Danke im Voraus für die Antworten ! |
Was soll mit Administratorrechten laufen - Delphi 6 oder eines seiner Compilate?
Falls letzteres: Mit einem Modulschnappschuß (CreateToolhelp32Snapshot(TH32CS_SNAPMODULE,<Process-ID>) eines möglichst "systemnahen" Prozesses (mit möglichst niedriger Prozeß-ID, aber größer als 0, so z.B. mit der ID 8 (Systemprozeß). Liefert das folgende Module32First einen boolschen Rückgabewert gleich true, dann hat das Programm Administratorrechte, anderenfalls nicht.
|
|
Dude566
      
Beiträge: 1592
Erhaltene Danke: 79
W8, W7 (Chrome, FF, IE)
Delphi XE2 Pro, Eclipse Juno, VS2012
|
Verfasst: Fr 21.01.11 18:42
_________________ Es gibt 10 Gruppen von Menschen: diejenigen, die das Binärsystem verstehen, und die anderen.
Für diesen Beitrag haben gedankt: Hochhaus
|
|
Hochhaus 
      
Beiträge: 662
Erhaltene Danke: 8
Windows 7
Delphi XE2
|
Verfasst: Fr 21.01.11 19:31
|
|
Luckie
Ehemaliges Mitglied
Erhaltene Danke: 1
|
Verfasst: Fr 21.01.11 22:18
Man sollte aber auch die Remarks Section in der MSDN Dokumentation beachten!
Für diesen Beitrag haben gedankt: Hochhaus
|
|
jaenicke
      
Beiträge: 19339
Erhaltene Danke: 1752
W11 x64 (Chrome, Edge)
Delphi 12 Pro, C# (VS 2022), JS/HTML, Java (NB), PHP, Lazarus
|
Verfasst: Fr 21.01.11 22:21
Mit der empfohlenen Funktion habe ich es bisher allerdings noch nicht hinbekommen. Es hat dann immer aus irgendwelchen Gründen nicht immer funktioniert. Deshalb benutze ich eben doch den Wrapper. Ich hatte auch bisher nicht die Muße mich länger mit der Alternative zu beschäftigen.
Für diesen Beitrag haben gedankt: Hochhaus
|
|