Sprach ID aus Exe auslesen

[TomyN]

Hi,
lass mal infoSize als Parameter weg:

[out, optional] lpdwHandle

Type: LPDWORD

A pointer to a variable that the function sets to zero.

[Andreas13]

Hi,
meinst Du, ich soll InfoSize hier weglassen?
InfoSize:= WinApi.Windows.GetFileVersionInfoSize(PChar(ParamStr(0)), InfoSize); In XE5 ist InfoSize kein Optionaler Parameter: --> Es läßt sich nicht kompilieren...

[Delphi.Narium]

Delphi-Quellcode:

var
  Dummy: DWORD;
...
InfoSize:= WinApi.Windows.GetFileVersionInfoSize(PChar(ParamStr(0)), Dummy);
...

[Delphi.Narium]

Diese Routine liefert mir unter Delphi 7 und Windows 11 für fast alle Exen unter c:\Windows\ die passende SprachID und die zugehörige Sprache im Klartext, dabei ist zu beachten, dass 0 eine gültige SprachID ist und für Sprachneutralität steht.

Delphi-Quellcode:

function GetExeLanguageID(const FileName: string; out LangID: Word; out Language : String) : Boolean;
var
  InfoSize, Dummy: DWORD;
  InfoData: Pointer;
  TransPtr: Pointer;
  TransLen: UINT;
  Buffer  : array[0..255] of Char;
begin
  LangID   := 0;
  Language := '<keine FileVersionInfo vorhanden>';
  InfoSize := GetFileVersionInfoSize(PChar(FileName), Dummy);
  Result   := InfoSize <> 0;
  if not Result then Exit;

  Language := '<unbekannt>';
  GetMem(InfoData, InfoSize);
  try
    if GetFileVersionInfo(PChar(FileName), 0, InfoSize, InfoData) and
       VerQueryValue(InfoData, '\\VarFileInfo\\Translation', TransPtr, TransLen) and
       (TransLen >= 4) then
    begin
      LangID := PWord(TransPtr)^; // Language ID holen (0 für Neutral ist gültig!)
      ZeroMemory(@Buffer, SizeOf(Buffer)); // Buffer vorsichtshalber leeren
      if VerLanguageName(LangID, Buffer, Length(Buffer)) <> 0 then
        Language := StrPas(Buffer)
      else
        Language := '<unbekannt>';
      Result := True;
    end;
  finally
    FreeMem(InfoData);
  end;
end;

[TomyN]

Oder so. Einfach einen Dummy da hin. Wobei ich mich frage, welchen Sinn dieser Parameter dann hat.

[Delphi.Narium]

Der zweite Parameter dient nur zu Kompabilität und kann ignoriert werden. Sein Zweck ist nur, den Funktionsprototyp zu erfüllen.