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...
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 GetMem...
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...
function GetFileVersionInfoSize( lptstrFilename: PChar; // 文件名 var lpdwHandle: DWORD // set to zero ): DWORD; stdcall; 参数说明: lptstrFilename,一个以NULL结束字符串,它指明期望从哪个文件中获取版本信息的文件名。 lpdwHandle,一个指向将被函数设置为0的变量的指针。
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); ...
lpTranslate : PLANGANDCODEPAGE;FileName:String;VerInfoSize, VerSize, cbTranslate : DWORD;VerValueSize : DWORD;Data : String;VerFileV:PChar;lpFileVersion:string;begin Result := '0.0.0.0';FileName := Application.ExeName; // 应用程序对应的 exe 文件 VerInfoSize := GetFile...
Version Info:版本信息选项卡,用于设置程序的版本信息。 优势: 使用Delphi修改版本信息简单且直观。 可以在同一个IDE中开发和修改多个Delphi程序。 应用场景: 当您需要更新程序的版本信息时,可以使用Delphi轻松地进行修改。 当您需要在多个Delphi项目之间共享代码时,可以使用Delphi IDE的项目管理功能。 推荐的腾讯云...
ManifestReader:=TManifiestReader.Create('MyApplication.exe'); try //Writeln(ManifestReader.Manifest); Writeln('Manifest version '+ManifestReader.ManifestVersion); Writeln('Main Assembly Identity'); Writeln('---'); Writeln('type '+ManifestReader...
='application/json'; //2 //client.CustomHeaders['Cookie'] := KUAISHOU_COOKIES; //client.CustomHeaders['Referer'] := Furl; //client.h client.Post(url,args,ss); result:=ss.DataString; end; finally ss.Free; args.Free; client.Free; end; end; //采集数据 function TComment.getRequest...