Interface implementieren...

[barnti]

Hallo,

der Fehler scheint an folgender Stelle zu sein:

Delphi-Quellcode:

                       // z.B. 'CompanyName'
function TmyVersionInfo.GetKey(KeyName: String): String;
var
  InfoLength: UINT;
  LangCharSet: String;
begin
  if InfoAvailable then
    begin
      //SetLength(Result, 255);  
      //Dieser Aufruf ist irgentwie falsch . Hier kommt immer false raus

      if VerQueryValue(myVersionInfo,PChar(KeyName),Pointer(result), InfoLength) then
        begin                        
          SetString(Result,PChar(Result),InfoLength-1);
        end
      else begin
        result:=''
      end;
    end
  else begin
    result:= 'N/A';
  end;
end;

Immerhin scheint der Fehler nun ziehmlich eingegrenzt zu sein...