android app获取版本号

转载
墨舞天涯 2024-11-21 13:25:39
文章标签 android app获取版本号 delphi string function integer 文章分类 Android 移动开发
delphi 获取文件的版本等信息
function GetFileVersion(AFileName: string): string; 
var 
n, Len: DWORD; 
Buf : PChar; 
Value: Pointer; 
szName: array [0..255] of Char; 
Transstring: string; 
begin 
Len := GetFileVersionInfoSize(PChar(AFileName), n); 
if Len > 0 then 
begin 
Buf := AllocMem(Len); 
if GetFileVersionInfo(Pchar(AFileName), n, Len, Buf) then 
begin 
Value := nil; 
VerQueryValue(Buf, '/VarFileInfo/Translation', Value, Len); 
if Value <> nil then 
Transstring := IntToHex(MakeLong(HiWord(LongInt(Value^)), 
LoWord(LongInt(Value^))),8); 
StrPCopy(szName, '/stringFileInfo/' + Transstring + '/FileVersion'); 
if VerQueryValue(Buf, szName, Value, Len) then 
Result := StrPas(Pchar(Value)); 
end; 
FreeMem(Buf, n); 
end; 
end; 

如何用Delphi编程读出一个DLL文件的版本号,请给示例 

好，给几个函数还不行，那就给段代码吧： 

procedure TForm1.Button1Click(Sender: TObject); 
var 
dwVerInfoSize, dwVerHnd: DWORD; 
hMem: THandle; 
lpvMem, lszVer: Pointer; 
szGetName: array[0..255] of Char; 
cchVer: UINT; 
fRet: Boolean; 
vsffi: VS_FIXEDFILEINFO; 
begin 
dwVerInfoSize := GetFileVersionInfoSize('Shell32.dll', dwVerHnd); 
if Boolean(dwVerInfoSize) then 
begin 
hMem := GlobalAlloc(GMEM_MOVEABLE, dwVerInfoSize); 
lpvMem := GlobalLock(hMem); 
GetFileVersionInfo('Shell32.dll', dwVerHnd, dwVerInfoSize, lpvMem); 
StrCopy(szGetName, '/'); 
lszVer := nil; 
fRet := VerQueryValue(lpvMem, szGetName, lszVer, cchVer); 
if fRet and Boolean(cchVer) and Boolean(lszVer) then 
begin 
vsffi := VS_FIXEDFILEINFO(lszVer^); 
ShowMessage('文件版本: ' + 
IntToStr(HIWORD(vsffi.dwFileVersionMS)) + '.' + 
IntToStr(LOWORD(vsffi.dwFileVersionMS)) + '.' + 
IntToStr(HIWORD(vsffi.dwFileVersionLS)) + '.' + 
IntToStr(LOWORD(vsffi.dwFileVersionLS))); 
end; 
GlobalUnlock(hMem); 
GlobalFree(hMem); 
end; 
end; 


如何获取一个可执行文件的版本号? 

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); 
GetMem(buf, i); 
ZeroMemory(buf, i); 
result:= false; 
if GetFileVersionInfo(pchar(fn), 0, 4096, pointer(buf)) then 
if VerQueryValue(buf, '/', pointer(sver), i) then begin 
ma:= sVer^.dwFileVersionMS shr 16; 
mi:= sver^.dwFileVersionMS and $0000ffff; 
r:= sver^.dwFileVersionLS shr 16; 
b:= sver^.dwFileVersionLS and $0000ffff; 
result:= true; 
end; 
Dispose(p); 
FreeMem(buf); 
end; 
=====================================================================================
 
//得到文件版本
    function GetVersionString(FileName: string): string;
    var
     VerInfoSize: DWORD;
     VerInfo: Pointer;
     VerValueSize: DWORD;
     Dummy: DWORD;
     VerValue: PVSFixedFileInfo;
    begin
     Result := '';
     VerInfoSize := GetFileVersionInfoSize(PChar(FileName), Dummy);
     if VerInfoSize = 0 then Exit;
     GetMem(VerInfo, VerInfoSize);
     GetFileVersionInfo(PChar(FileName), 0, VerInfoSize, VerInfo);
     VerQueryValue(VerInfo, '/', Pointer(VerValue), VerValueSize);
     Result := IntToStr(VerValue^.dwFileVersionMS shr 16) + '.' +
     IntToStr(VerValue^.dwFileVersionMS and $FFFF) + '.' +
     IntToStr(VerValue^.dwFileVersionLS shr 16) + '.' +
     IntToStr(VerValue^.dwFileVersionLS and $FFFF);
     FreeMem(VerInfo);
    end;
    可以取出bpl的版本号的啊
    测试代码如下：
    procedure TForm1.Button1Click(Sender: TObject);
    begin
    //指定某个文件的版本号
     ShowMessage(GetVersionString('d:/Program Files/Borland/Delphi7/Bin/applet70.bpl'));
    //如果是当前应用程序则以下代码：
     showmessage(GetVersionString(application.ExeName));
    end;==================================================================================================
 
在Delphi中获取和修改文件的时间
 
本文介绍了在Delphi中利用系统函数和Windows API函数调用来获取和修改文件的时间信息的方法。 

熟悉Windows 95/98的朋友一定经常会用单击鼠标右键的方法来查看所选定的文件的属性信息。在属性菜单中会列出该文件的创建时间、修改时间和访问时间。这些信息常常是很有用的，它们的设置一般都是由操作系统（也就是由Dos/Windows等等）自动完成的，不会让用户轻易修改。 

这里，我向大家介绍在Delphi中如何实现文件时间的获取和修改方法。Delphi中提供了很完备的Windows API函数的调用接口，可以方便的进行高级Windows编程。利用Delphi中的FindFirst函数可以得到一个文件的属性记录，该记录中的FindData域中就记载了详细的文件时间信息。然而遗憾的是，FindData中的时间信息是不能直接得到的。因此，有人（编者按：很遗憾不知此人姓名）编写了一个转换函数来完成文件时间格式的转换。下面给出了具体的实现方法，仅供参考： 
function CovFileDate(Fd:_FileTime):TDateTime; 
{ 转换文件的时间格式 } 
var 
Tct:_SystemTime; 
Temp:_FileTime; 
begin 
FileTimeToLocalFileTime(Fd,Temp); 
FileTimeToSystemTime(Temp,Tct); 
CovFileDate:=SystemTimeToDateTime(Tct); 
end; 
有了上面的函数支持，我们就可以获取一个文件的时间信息了。以下是一个简单的例子： 
procdeure GetFileTime(const Tf:string); 
{ 获取文件时间，Tf表示目标文件路径和名称 } 
const 
Model=yyyy/mm/dd,hh:mm:ss; { 设定时间格式 } 
var 
Tp:TSearchRec; { 申明Tp为一个查找记录 } 
T1,T2,T3:string; 
begin 
FindFirst(Tf,faAnyFile,Tp); { 查找目标文件 } T1:=FormatDateTime(Model, 
CovFileDate(Tp.FindData.ftCreationTime))); 
{ 返回文件的创建时间 } 
T2:=FormatDateTime(Model, 
CovFileDate(Tp.FindData.ftLastWriteTime))); 
{ 返回文件的修改时间 } 
T3:=FormatDateTime(Model,Now)); 
{ 返回文件的当前访问时间 } 
FindClose(Tp); 
end; 
设置文件的时间要复杂一些，这里介绍利用Delphi中的DataTimePicker组件来辅助完成这一复杂的操作。下面的例子利用了四个DataTimePicker组件来完成文件创建时间和修改时间的设置。注意：文件的访问时间用修改时间来代替。使用下面的例子时，请在您的Form上添加四个DataTimePicker组件。其中第一和第三个DataTimePicker组件中的Kind设置为dtkDate，第二个和第四个DataTimePicker组件中的Kind设置为dtkTime. 
procedure SetFileDateTime(const Tf:string); 
{ 设置文件时间，Tf表示目标文件路径和名称 } 
var 
Dt1,Dt2:Integer; 
Fs:TFileStream; 
Fct,Flt:TFileTime; 
begin 
Dt1:=DateTimeToFileDate( 
Trunc(Form1.DateTimePicker1.Date) + Frac(Form1.DateTimePicker2.Time)); 
Dt2:=DateTimeToFileDate( 
Trunc(Form1.DateTimePicker3.Date) + Frac(Form1.DateTimePicker4.Time)); 
{ 转换用户输入在DataTimePicker中的信息 } 
try 
FS := TFileStream.Create(Tf, fmOpenReadWrite); 
try 
if DosDateTimeToFileTime(LongRec(DT1).Hi, LongRec(DT1).Lo, Fct) and 
LocalFileTimeToFileTime(Fct, Fct) and 
DosDateTimeToFileTime(LongRec(DT2).Hi, LongRec(DT2).Lo, Flt) and 
LocalFileTimeToFileTime(Flt, Flt) 
then SetFileTime(FS.Handle, 
@Fct, @Flt, @Flt); 
{ 设置文件时间属性 } 
finally 
FS.Free; 
end; 
except 
MessageDlg(日期修改操作失败！, 
mtError, [mbOk], 0); 
{ 因为目标文件正在被使用等原因而导致失败 } 
end; 
end; 
以上简单介绍了文件时间属性的修改方法，请注意：修改文件时间的范围是从公元1792年9月19日开始的，上限可以达到公元2999年或更高。另外，请不要将此技术用于破坏他人文件等非正当途径。 
==================================================================================================
 
delphi 获取文件创建,修改时间
 
 
function CovFileDate(Fd:_FileTime):TDateTime;
{ 转换文件的时间格式 }
var
Tct:_SystemTime;
Temp:_FileTime;
begin
FileTimeToLocalFileTime(Fd,Temp);
FileTimeToSystemTime(Temp,Tct);
CovFileDate:=SystemTimeToDateTime(Tct);
end;

procedure TForm1.Button2Click(Sender: TObject);
const
Model='yyyy/mm/dd'; { 设定时间格式 }
var
Tp:TSearchRec; { 申明Tp为一个查找记录 }
T1,T2,T3:string;
begin
FindFirst('D:/SQL10.TXT',faAnyFile,Tp); { 查找目标文件 }
T1:=FormatDateTime(Model,CovFileDate(Tp.FindData.ftCreationTime));
{ 返回文件的创建时间 }
T2:=FormatDateTime(Model,CovFileDate(Tp.FindData.ftLastWriteTime));
{ 返回文件的修改时间 }
T3:=FormatDateTime(Model,Now);
{ 返回文件的当前访问时间 }
FindClose(Tp);
end; 
  
 
==================================================================================================
本文章为转载内容，我们尊重原作者对文章享有的著作权。如有内容错误或侵权问题，欢迎原作者联系我们进行内容更正或删除文章。