delphi 获取系统注册的文件图标

【delphi 获取系统注册的文件图标】的更多相关文章

delphi 获取系统注册的文件图标

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 获取 TreeView选中的文件路径

//获取 TreeView选中的文件路径 unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls; type TForm1 = class(TForm) TreeView1: TTreeView; ListView1: TListView; RichEdit1: TR…

windows 系统注册dll文件

使用管理员身份注册:命令提示符管理员身份运行 32 位系统:regsvr32 %windir%\system32\jscript.dll 64 位系统:regsvr32 %windir%\SysWOW64\jscript.dll 这时,如果提示 DllRegisterServer的调用失败, 这一般是权限问题,按照如下方式处理:命令提示符以管理员身份运行,输入:regsvr32 c:\Windows\SysWOW64\comdlg32.ocx 注意32位于64位的区别这时再重新运行注册命令…

Delphi 获取系统的语言环境参数GetSystemDefaultLangID、VerLanguageName、GetLocaleInfo

1 核心的两个API函数:GetSystemDefaultLangID 和 VerLanguageName. GetSystemDefaultLangID:获得系统默认语言的ID VerLanguageName: 通过语言的ID转换为语言的名称 , 根据16位语言代码获取一种语言的名称 uses Windows; function GetSystemLanguageName: string; var ID: LangID; LanguageName: array[0..255] of Char;…

Delphi 获取系统当前进程、窗口句柄、文件属性以及程序运行状态

uses TLHelp32,PsAPI;(1)显示进程列表: procedure TForm1.Button2Click(Sender: TObject); var lppe: TProcessEntry32; found : boolean; Hand : THandle; P:DWORD; s:string; begin ListBox1.Items.Clear ; Hand := CreateToolhelp32Snapshot(TH32CS_SNAPALL,); found := Pro…

Delphi 获取系统时间后格式化输出

问题:客户现场程序运行提示时间格式不对导致的错误,原因是与开发环境及公司内部测试环境的日期格式不一致: 解决:统一强制转换: //引用单元:SysUtils //目的:实现跨环境兼容不同日期格式,如果不做强制格式处理,不同环境存在发生问题的可能性: function GetSysTimeByFormate: string; var dtFormate: TFormatSettings; begin try dtFormate.ShortDateFormat := 'yyyy/MM/dd'; dt…