Delphi 7使用自定义图标关联文件类型 5.2 Delphi编程(40)  版权声明:本文为博主原创文章,未经博主允许不得转载. 在开发过程中,我们经常需要属于自己的文件类型,自定义的后缀名不仅可以防止用户双击直接改动其中的内容,还可以根据后缀名形象的表示此文件代表的含义.在Delphi 7中要实现关联文件图标.关联文件打开,并且关联的图标可以自己指定,而仅非只能使用应用程序的标题图标. 1.新建一个应用程序工程,准备两个ICO图标,其中一个作为应用程序的图标,另一个作为文件关联显示的图标:

delphi 动态获取文件类型的图标.txt我不奢望什么,只希望你以后的女人一个不如一个.真怀念小时候啊,天热的时候我也可以像男人一样光膀子!在应用程序的编写中,组合框(ComboBox).列表框(ListBox).等常见的部件,通常不仅要用于显示文字,而且还要显示其与文字相关的图标.在一般的Windows应用程序中,这些图标的显示都要随列出的显示文本的变化而变化,例如在组合框中列出当前目录下的所有文件时,在组合框左边就显示与文件名相关联的图标,这就是所谓的动态图标.在 Delphi中使用动态图

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

一般来说,很多软件都会有自定义后缀的文件,比如.cpp..doc等,那么如果我们想把这些后缀与我们的软件关联起来,如何做呢 #pragma once #include "StdAfx.h" class CRegExtension { public: CRegExtension(); ~CRegExtension(); void SetExtension( LPCTSTR szExtension ); void SetShellOpenCommand( LPCTSTR szShellOp

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

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

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;

Python tldextract 模块 - 功能说明 tldextract准确地从URL的域名和子域名分离通用顶级域名或国家顶级域名. 例如,http://www.google.com,你只想取出连接的 'google' 部分. 每个人都会想到用 ‘.’ 拆分,来获取域名和后缀,但这是不准确的.并且只有当你想到简单的,例如.com域名,以 ‘.’ 截取最后2个元素得到结果. 想想如果解析,例如:http://forums.bbc.co.uk,上面天真的分裂方法是有问题的,你会得到 'co' 作

/** * 详细步骤 */ private static void test1() { //获取文件的原始名称 String originalFilename = "tim.g (1).jpg";//timg (1).jpg //获取最后一个.的位置 int lastIndexOf = originalFilename.lastIndexOf("."); //获取文件的后缀名 .jpg String suffix = originalFilename.substri

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;

{根据文件的名字得到此文件在系统中对应大小的图标large=true(64*64) false(32*32)}procedure GetFileIcon(TypeName: Widestring; Icon: TIcon;Large:Boolean=False);var strTmp: Widestring; IndexS, IndexL: HIcon; ShFileInfo: TSHFileInfo ; imgList: TImageList;begin strTmp := TypeName;

var Icon:TICON; Key : string; App : string; Index : Integer; begin FileName:=Edit6.Text; then begin Exit; end; with TRegistry.Create do try RootKey:=HKEY_CLASSES_ROOT; Key:=ExtractFileExt(FileName); if KeyExists(Key) then begin OpenKey(Key,false); Ke

文件关联为我们带来很多的方便.Delphi自带有注册表对象TRegistry,可以通过它取得或改变注册表相关键值的内容. Function GetAssociatedExec(FileExt: String; var FileDescription, MIMEType: String): String; Var Reg: TRegistry; FileType: String; begin Result := ′′;{函数返回值是打开FileExt文件的可执行程序的名字及其参数} Reg :=

  文件关联为我们带来很多的方便.Delphi自带有注册表对象TRegistry,可以通过它取得或改变注册表相关键值的内容. Function GetAssociatedExec(FileExt: String; var FileDescription, MIMEType: String): String; Var Reg: TRegistry; FileType: String; begin Result := ′′;{函数返回值是打开FileExt文件的可执行程序的名字及其参数} Reg :

先介绍一个可能比较常用的方法,获取当前时间 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 的格式. 在介绍能够获取毫秒信息的方