SHGetFileInfo Win7 erzeugt harten D2010-IDE-Absturz mit Fehler EEFACE

[Jaynder]

Hallo,

habe leider erhebliche Probleme, wenn ich SHGetFileInfo verwende und mein Programm aus der IDE heraus starte. Es komme dann in ca. 2 von 3 Fällen eine harter Absturz der IDE mit der Meldung

Code:

 Externe Exception EEFFACE

und ich muss IDE mit dem TaskMgr abschießen und neu starten.

Starte ich das Programm direkt, gibt es keine Probleme.

Es gibt zwar einen Thread zu diesem Thema (https://forums.embarcadero.com/threa...threadID=31348), aber hier ist das Problem definitiv nicht abhängig von einem externen Programm und tritt nur unter Win7 (evtl nur 64 bit) auf. Unter XP ist alles Takko.

Hat jemand eine Idee ?

Snippet:

Code:

  // Get the file type
  if SHGetFileInfo(PWideChar(aFilename), 0, rSHFI, SizeOf(rSHFI), SHGFI_TYPENAME) <> 0 then
  begin
    aInfo.FileType := rSHFI.szTypeName;
  end;

  iRet := SHGetFileInfo(PWideChar(aFilename), 0, rSHFI, SizeOf(rSHFI), SHGFI_EXETYPE);
  if iRet <> 0 then
  begin
    // determine whether the OS can obtain version information
    VerSize := GetFileVersionInfoSize(PChar(aFilename), VerHandle);
    if VerSize > 0 then
    begin
      VerBuf := AllocMem(VerSize);
      try
        with aInfo do
        begin
          CompanyName      := QueryValue('CompanyName');
          FileDescription  := QueryValue('FileDescription');
          FileVersion      := QueryValue('FileVersion');
          InternalName     := QueryValue('InternalName');
          LegalCopyRight   := QueryValue('LegalCopyRight');
          LegalTradeMarks  := QueryValue('LegalTradeMarks');
          OriginalFileName := QueryValue('OriginalFileName');
          ProductName      := QueryValue('ProductName');
          ProductVersion   := QueryValue('ProductVersion');
          Comments         := QueryValue('Comments');
          SpecialBuildStr  := QueryValue('SpecialBuild');
          PrivateBuildStr  := QueryValue('PrivateBuild');
          // Fill the  VS_FIXEDFILEINFO structure
          FixedFileInfo    := GetFixedFileInfo;
          DebugBuild       := HasdwFileFlags(FixedFileInfo,VS_FF_DEBUG);
          PreRelease       := HasdwFileFlags(FixedFileInfo,VS_FF_PRERELEASE);
          PrivateBuild     := HasdwFileFlags(FixedFileInfo,VS_FF_PRIVATEBUILD);
          SpecialBuild     := HasdwFileFlags(FixedFileInfo,VS_FF_SPECIALBUILD);
          Patched          := HasdwFileFlags(FixedFileInfo,VS_FF_PATCHED);
          InfoInferred     := HasdwFileFlags(FixedFileInfo,VS_FF_INFOINFERRED);
          FileFunction     := GetFileSubType(FixedFileInfo);
        end;

      finally
        FreeMem(VerBuf, VerSize);
      end;

      GetFileInfo(aFilename,aInfo.FileInfoVersion);
      result := True;
    end;
  end

[Dezipaitor]

Hi, die EEFFACE Exception wird geworfen, wenn eine C++ Exception beim Delphiexceptionhandler ankommt und dieser sie nicht umwandeln kann. Siehe
http://www.audacia-software.de/de/bc...on-eefface.htm

Ich kann nur vermuten, dass die Shellfunktion eine Exception wirft, die intern abgefangen wird. Wenn aber Delphi debuggt, dann werden Exceptions normalerweise an den Debugger weitergegeben, der in so einem Fall das Programm anhält und in diesem Fall sich wohl auch selbst Das kann ich aber wirklich nur mutmaßen.

Versuche mal eines oder mehrere dieser Dinge:
1. Füge in den Delphi-Optionen DebuggerAusnahmen, die EExternalException hinzu, so dass Delphi da nicht mehr stehenbleibt. (Sorry, hab grad kein Delphi, ka wo das ist)
2. Initialisiere die Struktur rSHFI mit 0 vorher.

[Jaynder]

Danke für die fundierte Antwort an Dezipaitor. Wie es aber Murphy immer so macht, tritt im Moment der Fehler nicht mehr auf. Da ich inzwischen aber auch einiges andere am Programm geändert habe, ist vermutlich die fehlende Initialisierung der Stackvaribalen rSHFI eine gute Idee. Werde es erstmal auskommentiert einbauen, um dies als Lösung verifizieren zu können! Melde mich dann wieder-

[Luckie]

Zitat von Dezipaitor:

2. Initialisiere die Struktur rSHFI mit 0 vorher.

Das sollte man sowieso immer mit Strukturen machen, die man an eine Funktion übergibt.

[Jaynder]

Zitat von Luckie:

Zitat von Dezipaitor:

2. Initialisiere die Struktur rSHFI mit 0 vorher.

Das sollte man sowieso immer mit Strukturen machen, die man an eine Funktion übergibt.

seh ich nicht so, einen out-Parameter soll gefälligst der Lieferant des Ergebnisses initialisieren. Wenns ein var-Parameter ist, hast du recht. Kann man natürlich hier nicht sehen, da es ein API-Call ist

[Luckie]

Sicher ist sicher. Und was schadet ein Aufruf von ZeroMemory?

[Jaynder]

Zitat von Luckie:

Sicher ist sicher. Und was schadet ein Aufruf von ZeroMemory?

nichts, außer das die Fingerkuppen durch das Schreiben unnotiger Anweisungen mehr abnutzen

Außerdem - als Zwischenergebnis zum ursprünglichen Problem- : es nützt in diesem Falle leider auch nichts - der Fehler ist wieder aufgetreten.

Versuche es jetzt mit dem Ignorieren der EExternalException...

[Dezipaitor]

Bei WinAPI Funktionen gibt es keine reine OUT-Parameter. In der MSDN Dok steht auch dazu, dass es ein IN/OUT ist. Weil letztendlich ist es ein Zeiger, der vorher initialisiert werden muss.

[Jaynder]

Weiteres negatives Zwischenergebnis: EExternalExceptions zu ignorieren hilft leider auch nicht. Habe auch versucht, $EEFACE als native BS-Exception zu definierten, was aber auch nichts gebracht hat.

[Dezipaitor]

Dann wäre es nun gut, wenn du den Code soweit vervollständigst, dass man mehr sehen kann. Wie sieht SHGetFileInfo aus? Benutzt du VCL, JEDI? Welche Dateinamen stecken in aFileName ?