![](https://img-blog.csdnimg.cn/20190918135101160.png?x-oss-process=image/resize,m_fixed,h_224,w_224)
Delphi
Delphi
记昨日书丶
忙碌把时光缩短,苦难把岁月拉长
展开
-
Delphi7 防止程序多开
1. 新建单元 uAppMutex.pasunit uAppMutex;{ @desc 进程互斥(防止程序多开) @author chenxc @date 2020年12月2日11:47:36}interfaceuses Windows, Messages;function AppHasRun(AppHandle: THandle): Boolean;const MapFileName = '{CAF49BBB-AF40-4FDE-8757-51D5A原创 2021-10-19 12:33:20 · 372 阅读 · 0 评论 -
Delphi7 注册URL Protocol
注册协议procedure TMainForm.RegUrlProtocol;var reg: TRegistry;begin reg := TRegistry.Create; try try reg.RootKey := HKEY_CLASSES_ROOT; if not reg.KeyExists('\JFAppURL') then reg.CreateKey('\JFAppURL'); if reg.OpenKey('\JF原创 2021-10-19 12:32:35 · 202 阅读 · 0 评论 -
Delphi7 注册开机自启
设置开机自启procedure TMainForm.RegAutoStart;var Reg: TRegistry;begin Reg := TRegistry.Create; try //将根键设置为HKEY_LOCAL_MACHINE Reg.RootKey := HKEY_LOCAL_MACHINE; //打开一个键 Reg.OpenKey('SOFTWAREMicrosoftwindowsCurrentVersionRun', True);原创 2021-10-19 12:30:51 · 308 阅读 · 0 评论 -
Delphi7 全局快捷键
注册全局快捷键// Ctrl+F5// 设置一个唯一IDHotKeyID := GlobalAddAtom('HotKeyID');// 辅助快捷键 MOD_ALT, MOD_CONTROL, MOD_SHIFT, MOD_WIN, 0ControlKeyInt := MOD_CONTROL;FnKeyInt := VK_F5;RegisterHotKey(self.Handle, HotKeyID, ControlKeyInt, FnKeyInt);监听全局快捷键事件// 定义函数原型原创 2021-10-19 12:29:27 · 428 阅读 · 0 评论 -
Delphi7 运行时申请管理员权限
Delphi7 运行时申请管理员权限原创 2020-04-10 12:30:32 · 696 阅读 · 0 评论