Function (WIMGetMountedImageInfo)

[Sir Rufo]

@Zacherl

Folgendes würde ich ändern

• Wenn LoadLibrary dann auch FreeLibrary inkl. Fehlerbehandlung (Exception)
• GetLastError nur einmal aufrufen
  

  Zitat:

  Der Aufruf dieser Funktion setzt in der Regel den Fehlerstatus des Betriebssystems zurück.

• Da alle anderen Fehlermeldungen in diesem Kontext eine Ausnahme sind, würde ich auch eine Exception werfen
• Statt PChar auf jeden Fall PWideChar nehmen, denn hier gibt es nur WCHAR (und PChar ist abhängig vom Compiler -> bei der nächsten Umstellung des Standard-String-Typs sind wieder alle am Weinen ).
  Wenn sich die API ändert, dann ändert die sich eben ... nachführen

Delphi-Quellcode:

var
  Lwimgapi                                  : HMODULE;
  LSuccess                                  : Boolean;
  LBuffer                                   : PWIM_MOUNT_INFO_LEVEL0_LIST;
  LBufferLength, LReturnLength, LImageCount : DWord;
  LIdx                                      : Integer;
  LLastError                                : Cardinal;

begin
  Lwimgapi := LoadLibrary( 'wimgapi.dll' );
  if Lwimgapi = 0
  then
    RaiseLastOSError;

  try
    @WIMGetMountedImageInfo := GetProcAddress( Lwimgapi, 'WIMGetMountedImageInfo' );
    LBufferLength           := SizeOf( WIM_MOUNT_INFO_LEVEL0 ) * 8;
    GetMem( LBuffer, LBufferLength );
    try
      repeat
        LSuccess := WIMGetMountedImageInfo( MountedImageInfoLevel0, LImageCount, LBuffer, LBufferLength, LReturnLength );
        if LSuccess
        then
          begin
            for LIdx := 0 to LImageCount - 1 do
              begin
                ShowMessage( StrPas( PWideChar( @LBuffer^[LIdx].WimPath[0] ) ) );
              end;
          end
        else
          begin
            LLastError := GetLastError;
            case LLastError of
              ERROR_INSUFFICIENT_BUFFER :
                begin
                  ReallocMem( LBuffer, LReturnLength );
                end;
            else
              RaiseLastOSError( LLastError );
            end;
          end;
      until LSuccess;
    finally
      FreeMem( LBuffer );
    end;
  finally
    FreeLibrary( Lwimgapi );
  end;
end;

EDIT
GetProcAddress ist auch noch ein Kandidat zum Prüfen ... aber jetzt nicht mehr