functionGetApplicationVersion:String;//Added 取得程序版本号varFileName:String; InfoSize,Wnd:DWORD; VerBuf:Pointer; VerInfo:^VS_FIXEDFILEINFO;beginResult:='0.0.0.0'; FileName:=Application.ExeName; InfoSize:=GetFileVersionInfoSize(PChar(FileName),Wnd);ifInfoSize<>0thenbeginGetMem(VerBuf,InfoSize)...
Result := ''; if not FileExists(Application.ExeName) then Exit; InfoSize := GetFileVersionInfoSize(PChar(Application.ExeName), Temp); if InfoSize = 0 then Exit; //没有版本号 FileData := GetMemory(InfoSize); try if not GetFileVersionInfo(PChar(Application.ExeName), 0, InfoSize, Fil...
Application.Terminate; ShellExecute(updaterHandle,'open','updater.exe','','',1);exit;end; AI代码助手复制代码 我们再其他模块里实现checkVersion这个函数, functionCheckSystemVersion:boolean; var servVersion:integer;beginresult:=true; servVersion:=getLastVersionFromServer;//从服务端获取版本信息 if servV...
S := Application.ExeName; BufSize := GetFileVersionInfoSize(PChar(S), BufSize); if BufSize > 0 then begin Buf := AllocMem(BufSize); //获取内存控件,用于保存从文件中获得的版本信息资源。 GetFileVersionInfo(PChar(S), 0, BufSize, Buf); //获得在内存中存储版本信息资源所需要的最小内存空间...
function GetFileVersion(fn: string; var ma, mi, r ,b: integer):boolean;//得到本程序的版本号 var buf, p: pChar; sver: ^VS_FIXEDFILEINFO ; i: LongWord; begin i:= GetFileVersionInfoSize(pchar(fn), i); new(sver); p:= pchar(sver); ...
function GetApplicationVersion:String; // Added 取得程序版本号 var FileName:String;InfoSize,Wnd:DWORD;VerBuf:Pointer;VerInfo:^VS_FIXEDFILEINFO;begin Result:='0.0.0.0';FileName:=Application.ExeName;InfoSize:=GetFileVersionInfoSize(PChar(FileName),Wnd);if InfoSize<>0 then begin...
51 function GetDLLVersionNOs(sFileNames:string; sReturnValueSeparator:String=','):string; 52 var 53 vList:TStringList; 54 i:Integer; 55 vFrontPartPath,vFullPath, VerNo:string; 56 begin 57 Result:=''; 58 if sFileNames='' then ...
From http://www.martinstoeckli.ch/delphi/delphi.html#AppVersion With this function you can get the version of a file, which contains a version resource. This way you can display the version number of your application in an information dialog. To include a version resource to your Delphi app...
ManifestReader:=TManifiestReader.Create('MyApplication.exe'); try //Writeln(ManifestReader.Manifest); Writeln('Manifest version '+ManifestReader.ManifestVersion); Writeln('Main Assembly Identity'); Writeln('---'); Writeln('type '+ManifestReader...
Delphi 7: Execute application with administrator privileges Ask Question Asked 11 years, 9 months ago Modified 9 years, 1 month ago Viewed 1k times 4 How do I add the manifest for UAC without adding XP Themes? I tried this manifest:<...