用原来的GetFileVersionInfo只能获取Delpi7的程序版本号,用在Delphi2010中就不管用了 //------ 获取文件版本号function F_GetFileVersion(FN: string): string;var  Temp, InfoSize: Cardinal;  FileData: Pointer;  FileInfo: PVSFixedFileInfo;begin  Result := '';  if not FileExists(FN) then Ex

delphi获取Exe文件版本信息的函数 Type TFileVersionInfo = Record FixedInfo:TVSFixedFileInfo; {版本信息} CompanyName:String; {公司名称} FileDescription:String; {说明} FileVersion:String; {文件版本} InternalName:String; {内部名称} LegalCopyright:String; {版权} LegalTrademarks:String;

if TOSVersion.Major = 10 then  // 高版本的Delphi(比如Berlin)可以这样写 ShowMessage('Windows 10'); 或者: if Win32MajorVersion = 10 then WIN10以后如果Manifest中不写支持WIN10的话,获取版本号的API获取的是6,最新版的Delphi的manifest中写了支持WIN10,所以没问题.老版本Delphi要自己写manifest中间加上    <compatibility xml

delphi 获取文件的最新修改时间 作者:admin 来源:未知 日期:2010/1/28 13:15:22 人气:1054 标签: QQ空间新浪微博腾讯微博腾讯朋友QQ收藏百度空间百度贴吧更多0 delphi 获取文件的最新修改时间 varDateTime: TDateTime;beginFileAge('C:\Windows\Notepad.exe', DateTime);ShowMessage(DateTimeToStr(DateTime));end;

Delphi 获取进程路径及命令行参数, 但有的进程获取时会报错,不知为啥 type PVOID64 = UINT64; _UNICODE_STRING = packed record Length : USHORT; MaximumLength : USHORT; Buffer : PWideChar; end; UNICODE_STRING = _UNICODE_STRING; PUNICODE_STRING =^_UNICODE_STRING; _UNICODE_STRING64 = pa

delphi 获取硬盘 序列号 function GetIdeNum: String; type TSrbIoControl = packed record HeaderLength : ULONG; Signature : Array[0..7] of Char; Timeout : ULONG; ControlCode : ULONG; ReturnCode : ULONG; Length : ULONG; end; SRB_IO_CONTROL = TSrbIoControl; PSrbI

package com.example.grenaderose.redthunder.utils; import android.content.Context; import android.content.pm.PackageInfo; import android.content.pm.PackageManager; /** * Description : * Author : hanbao * Date : 2019/3/9 0009 下午 4:30 */ public class Pa

Delphi 获取当前鼠标下的控件内容 主要函数: GetCursorPos://获取鼠标的位置 WindowFromPoint://获取制定point下的handle GetClassName://获取类的名字 function TForm1.GetEditText: string;var  Point: TPoint;  Name: array[0..255] of Char;  Buffer: array[0..1023] of Char;  AHandle: THandle;begin 

Delphi获取本机的MAC地址: uses   NB30; function GetAdaPterInfo(lana: Char): string; var   Adapter: TAdapterStatus;   NCB: TNCB; begin   FillChar(NCB,Sizeof(NCB),0);   NCB.ncb_command := Char(NCBRESET);   NCB.ncb_lana_num := Lana;   if Netbios(@NCB) <> Char(

DELPHI获取宽带IP   DELPHI获取宽带IP procedure TForm1.Button1Click(Sender: TObject);varurl: string;beginurl := 'http://pv.sohu.com/cityjson?ie=utf-8';Memo1.Text := IdHTTP1.Get(url);end; http://whois.pconline.com.cn/ipJson.jsp 这个URL也能获取.

Delphi获取默认打印机名称及端口 在前段时间写的收银系统中由于目前市场上很多电脑主板上已经没有并口,而POS机却又需要并口,所以目前需要用PCI转接卡,这个就导致不同门店使用的端口就有可能不同,这就给我们程序中弹出钱箱的指令带来一定的难度.所以就通过获取Window自带的默认,得出打印机信息. 在Windows文件下有个win.ini,里面自带默认打印机的信息.通过调用API函数Getprofilestring这个函数获取打印机信息.   在界面上拖个button,在其单击事件中写: pro

delphi 获取网卡信息(支持多网卡) unit LGetAdapterInfo; interface uses Windows, SysUtils, Classes; const MAX_HOSTNAME_LEN = ; { from IPTYPES.H } MAX_DOMAIN_NAME_LEN = ; MAX_SCOPE_ID_LEN = ; MAX_ADAPTER_NAME_LENGTH = ; MAX_ADAPTER_DESCRIPTION_LENGTH = ; MAX_ADAPTE

取文件名 ExtractFileName(FileName); 取文件扩展名: ExtractFileExt(filename); 取文件名,不带扩展名: 方法一:   Function ExtractFileNameNoExt(FileString: String): String;   Var   FileWithExtString: String;   FileExtString: String;   LenExt: Integer;   LenNameWithExt: Integer;

Delphi获取句柄发布时间:2011-06-16转载文章请标明出处: http://code.01yun.com/asp0dm/asp0net0dm/20110616/55395.html查找另外一个窗口的句柄: handle := FindWindow(nil,PChar('窗口 的标题'));//查到窗体句柄查找子窗体:childHandle := FindWindowEx(handle,0,'子窗体类',' 子窗体标题');另外有个枚举子窗体的API,EnumChildWindows(主

获取指定文件的版本号 方式一: function GetFileVersion(FileName: string): string; type PVerInfo = ^TVS_FIXEDFILEINFO; TVS_FIXEDFILEINFO = record dwSignature: longint; dwStrucVersion: longint; dwFileVersionMS: longint; dwFileVersionLS: longint; dwFileFlagsMask: long

通过注册表获取或修改Ip 想到Windows会把系统网卡相关信息存入注册表,肯定可通过注册表读取具体ip信息.大致思路是找HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\NetworkCards ,由NetworkCards得分支表示各个网卡的信息通过ServiceName到 HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\I

先介绍一个可能比较常用的方法,获取当前时间 var datetime: string; begin datetime:= FormatDateTime('yyyy-mm-dd hh:mm:ss', Now); ShowMessage(datetime); end; 其中的Now 函数是获取当前的时间,FormatDateTime 用于将Now获取的时间信息格式化为想要的格式. 这个方法可以获取当前时间,并且格式化为例如 2008-09-10 09:10:58 的格式. 在介绍能够获取毫秒信息的方

iOS获取应用版本号:version OC: [[[NSBundle mainBundle] infoDictionary] objectForKey:@"CFBundleShortVersionString"] 或 [[NSBundle mainBundle] objectForInfoDictionaryKey:@"CFBundleShortVersionString"]; Swift: let versionNo:String = NSBundle.mainB

PackageInfo代表的是关于一个包的所有信息,就相当于一个APP应用的清单文件中收集到的所有信息. 通过这个类我们就可以获取类似版本号等一些信息. 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 /**  * 得到应用程序的版本名称  */   private String getVersionName() {     // 用来管理手机的APK     PackageManager pm = getPackageManager();    

PackageInfo代表的是关于一个包的所有信息,就相当于一个APP应用的清单文件中收集到的所有信息. 通过这个类我们就可以获取类似版本号等一些信息. /** * 得到应用程序的版本名称 */ private String getVersionName() { // 用来管理手机的APK PackageManager pm = getPackageManager(); try { // 得到知道APK的功能清单文件 PackageInfo info = pm.getPackageInfo(ge

在开发应用程序时往往需要获取当前系统时间.尽管Y2K似乎已经平安过去,但在我们新开发的应用程序中还是要谨慎处理“时间”问题. 在<融会贯通--Delphi4.0实战技巧>(以下简称“该书”)第89页专门介绍了两种获取当前系统时间的方法,但这两种方法都存在不足或错误,以下就此进行讨论. 该书第一种方法是利用Time()函数获得当前系统时间,返回结果是TDateTime结构类型的变量.例如: procedure TForm1.Button2Click(Sender: TObject); var D