GetFileVersionInfoW: mal gehts, mal nicht

[messie]

Moin.

ich habe diesen Code

Delphi-Quellcode:

procedure TAboutBox.FormShow(Sender: TObject);
var
  s : WideString;
  p, dummy : pWideChar;
  i, len : DWORD;
  j : cardinal;
begin
  try
    s := application.ExeName;
    i := GetFileVersionInfoSizeW(PWideChar(s),j);
    if i > 0 then
    begin
      p := AllocMem(i);
      GetFileVersionInfoW(PWideChar(s),0,i,p);
      VerQueryValueW(p, PWideChar(WideString('\\StringFileInfo\\040704E4\\FileVersion')),Pointer(dummy), Len);
      Label3.Caption :=  dummy;
      freemem(p,i);
    end;
  except
    //nix
  end;
end;

in zwei Programmen. Bei einem geht es, bei den anderen nicht.

Wie kann das sein? Gibt es da Nebenbedingungen?

Grüße, Messie