string ein Alias für UnicodeString

[EWeiss]

Zitat:

Das ist doch gänzlich was anderes als was du weiter oben im Thread verwendest.

Nun ja etwas muss man schon selber machen..

Delphi-Quellcode:

function GetVerInfo(FileName: string): WideString;
var
  VI: TVerInfo;
  TransIdx: integer;
  Trans: string;
  StrIdx: integer;
  StrName: string;
begin
  VI := TVerInfo.Create(FileName);
  try
    if VI.HasVerInfo then
    begin
      for TransIdx := 0 to Pred(VI.TranslationCount) do
      begin
        Trans := VI.Translations[TransIdx];

        // display all standard strings
        for StrIdx := Low(cStrNames) to High(cStrNames) do
        begin
          StrName := cStrNames[StrIdx];
          if StrName = 'FileDescription' then
          begin
            Result := VI.Strings[Trans, StrName];
            Break;
          end;
        end;
      end;
    end
    else
      Result := '';
  finally
    VI.free;
  end;
end;

Siehe..
Result := VI.Strings[Trans, StrName];

property Strings[const Trans, Name: string]: string read GetString;

Delphi-Quellcode:

function TVerInfo.GetString(const Trans, Name: string): string;
begin
  Assert(fHasVerInfo);
  Result := GetVerInfoStr(fVerInfo, Trans, Name); // <<< hier der Part 
end;

Delphi-Quellcode:

function GetVerInfoStr(const Buffer: Pointer;
  const Trans, StrName: string): string;

gruss