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...
delphi 怎么获取工程版本号 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 Info...
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...
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...
、、我可以很容易地在运行时使用以下命令测试当前的API级别: if (Build.VERSION.SDK_INT >= Build.VERSION_CODES.O) {} 我如何在Delphi Rio中找到Build.VERSION.SDK_INT的等价物?我试图寻找int android_get_application_target_sdk_version(),但我找不到包含它的Delphi单元...