Also in der
Unit UVerInfoRoutines.pas aus dem article-20-demo.zip ist das wie folgt definiert:
Delphi-Quellcode:
{
GetVerInfo:
Thin wrapper around API routine. Loads version information for a given file
into a buffer. Raises exception if version information can't be read.
}
procedure GetVerInfo(
const FileName:
string;
const Size: Integer;
const Buffer: Pointer);
Delphi-Quellcode:
procedure GetVerInfo(
const FileName:
string;
const Size: Integer;
const Buffer: Pointer);
begin
if not GetFileVersionInfo(PChar(FileName), 0, Size, Buffer)
then
raise Exception.Create('
Can''
t load version information');
end;
Das ist doch gänzlich was anderes als was du weiter oben im Thread verwendest.
Da scheint es eine function anstatt procedure zu sein.
Auch von WideString ist nichts zu lesen.