ich hatte eigentlich folgendes vor :
Delphi-Quellcode:
function GetVersionNr(sfile: string): string;
var
l : integer;
h : THandle;
p : PChar;
F : PVSFixedFileInfo;
FL : Cardinal;
begin
Result := '';
l := GetFileVersionInfoSize(PChar(sfile), h);
if l > 0 then begin
GetMem(p, l);
try
if GetFileVersionInfo(PChar(sfile), 0, l, p) and
VerQueryValue(p, '\', Pointer(F), FL) then
Result := Format('%d.%d%d%d',
[HiWord(F.dwFileVersionMS),
LoWord(F.dwFileVersionMS),
HiWord(F.dwFileVersionLS),
LoWord(F.dwFileVersionLS)]);
finally
FreeMem(P, l);
end;
end;
end;
nur dazu brauch ich halt den Namen der
DLL .. wen ich den hart angebe bekomm ich auch die Version die ich möchte
nur weiss ich halt nicht ob sich der Name der
DLL nicht ändert wenn sie in Echtbetrieb geht ...