AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Sprachen und Entwicklungsumgebungen Object-Pascal / Delphi-Language Delphi Fehler: Privelgierte Anweisung beim laden eines Icons

Fehler: Privelgierte Anweisung beim laden eines Icons

Ein Thema von Andreas L. · begonnen am 15. Jun 2008 · letzter Beitrag vom 15. Jun 2008
Antwort Antwort
Andreas L.
(Gast)

n/a Beiträge
 
#1

Fehler: Privelgierte Anweisung beim laden eines Icons

  Alt 15. Jun 2008, 17:15
Hi,
wenn ich mit folgenden Code ein Icon aus einer Datei lade, bekomme ich die untenstehende Fehlermeldung. Der Debugger bleibt beim end; stehen. Wo liegt der Fehler?

Delphi-Quellcode:

function GethIcon(FileName: String; icoSize: Cardinal; icoIndex: integer = 0): Cardinal;
var DeskTopISF: IShellFolder; IExIcon: IExtractIcon; PathPidl: PItemIDList; hIconL, hIconS: HIcon;
begin
  Result := 0;
  if SHGetDesktopFolder(DeskTopISF) <> NOERROR then Exit;
  PathPidl := nil;
  if DeskTopISF.GetUIObjectOf(0, 1, PathPidl, IID_IExtractIconA, nil, IExIcon) <> NOERROR then Exit;
  if (IExIcon.Extract(PChar(FileName), icoIndex, hIconL, hIconS,
    icoSize or (16 shl 16)) = NOERROR) and (hIconL <> 0) then Result := hIconL;
  DestroyIcon(hIconS);
end;

//Aufruf:
Icon.handle := GethIcon('C:\Program Files\Mozilla Firefox\firefox.exe', 16, 0);
Zitat:
---------------------------
Benachrichtigung über Debugger-Exception
---------------------------
Im Projekt Demo.exe ist eine Exception der Klasse EPrivilege mit der Meldung 'Privilegierte Anweisung' aufgetreten.
---------------------------
Anhalten Fortsetzen Hilfe
---------------------------
Ciao,
Andy
  Mit Zitat antworten Zitat
Benutzerbild von Codewalker
Codewalker

Registriert seit: 18. Nov 2005
Ort: Ratingen
945 Beiträge
 
Delphi XE2 Professional
 
#2

Re: Fehler: Privelgierte Anweisung beim laden eines Icons

  Alt 15. Jun 2008, 17:25
"Priviligierte Anweisung" kenne ich nur von meinen wenigen Ausflügen in die Assembler-Welt, wenn man bestimmte Aktionen durchführen möchte, die nur im Kernel-Mode erlaubt sind. Aber auf der ersten Blick ist davon jetzt hier nicht zu sehen...
Thomas
  Mit Zitat antworten Zitat
Apollonius

Registriert seit: 16. Apr 2007
2.325 Beiträge
 
Turbo Delphi für Win32
 
#3

Re: Fehler: Privelgierte Anweisung beim laden eines Icons

  Alt 15. Jun 2008, 17:27
Kannst du mal in der CPU-Ansicht schauen, wo das auftritt?
Wer erweist der Welt einen Dienst und findet ein gutes Synonym für "Pointer"?
"An interface pointer is a pointer to a pointer. This pointer points to an array of pointers, each of which points to an interface function."
  Mit Zitat antworten Zitat
Andreas L.
(Gast)

n/a Beiträge
 
#4

Re: Fehler: Privelgierte Anweisung beim laden eines Icons

  Alt 15. Jun 2008, 17:37
Bei

Zitat:
778442EB C9 leave
Jetzt kommt aber eine Zugriffsverletzung. Wenn ich Delphi beende und neustarte kommt wieder priveligierte Anweisung.
  Mit Zitat antworten Zitat
Apollonius

Registriert seit: 16. Apr 2007
2.325 Beiträge
 
Turbo Delphi für Win32
 
#5

Re: Fehler: Privelgierte Anweisung beim laden eines Icons

  Alt 15. Jun 2008, 17:43
Wo steht dieses Leave? Delphi verwendet das normalerweise nicht. Kannst du mal einen Screenshot posten?
Wer erweist der Welt einen Dienst und findet ein gutes Synonym für "Pointer"?
"An interface pointer is a pointer to a pointer. This pointer points to an array of pointers, each of which points to an interface function."
  Mit Zitat antworten Zitat
Andreas L.
(Gast)

n/a Beiträge
 
#6

Re: Fehler: Privelgierte Anweisung beim laden eines Icons

  Alt 15. Jun 2008, 19:08
Zitat von Apollonius:
Wo steht dieses Leave? Delphi verwendet das normalerweise nicht. Kannst du mal einen Screenshot posten?
Jetzt kommt wieder was anderes...

EDIT: Vllt. hilft noch folgender Code:
Delphi-Quellcode:
function TBrowserInfo.GetIcon(Size: Cardinal = 32):TIcon;
begin
  Result.Handle := GethIcon(Binary, Size, 0);
end;
Binary ist eine String-Eigenschaft von TBrowserInfo mit den Dateiname inkl. Pfad
Miniaturansicht angehängter Grafiken
cpu_182.png  
  Mit Zitat antworten Zitat
Apollonius

Registriert seit: 16. Apr 2007
2.325 Beiträge
 
Turbo Delphi für Win32
 
#7

Re: Fehler: Privelgierte Anweisung beim laden eines Icons

  Alt 15. Jun 2008, 19:14
Das ist doch schon nach einer Exception (siehe @HandleAnyException).
Wer erweist der Welt einen Dienst und findet ein gutes Synonym für "Pointer"?
"An interface pointer is a pointer to a pointer. This pointer points to an array of pointers, each of which points to an interface function."
  Mit Zitat antworten Zitat
Andreas L.
(Gast)

n/a Beiträge
 
#8

Re: Fehler: Privelgierte Anweisung beim laden eines Icons

  Alt 15. Jun 2008, 19:18
Und noch ein Bild...
Miniaturansicht angehängter Grafiken
cpu2_156.png  
  Mit Zitat antworten Zitat
Apollonius

Registriert seit: 16. Apr 2007
2.325 Beiträge
 
Turbo Delphi für Win32
 
#9

Re: Fehler: Privelgierte Anweisung beim laden eines Icons

  Alt 15. Jun 2008, 20:20
Auch das ist zu spät (Kernel32.RaiseException). Der Debugger stoppt da nur, weil in dem vorherigen Call das eigentlich Werfen der Exception stattfand.
Wer erweist der Welt einen Dienst und findet ein gutes Synonym für "Pointer"?
"An interface pointer is a pointer to a pointer. This pointer points to an array of pointers, each of which points to an interface function."
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

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 12:11 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