delphi使用技艺大全下载

weixin_39820535 weixin_39820535 墨衍会员 · AI 创作全网分发 墨衍智能分发 通过墨衍一键同步至各平台 可同步平台 CSDN微信公众号微博知乎掘金百家号博客园抖音小红书 你的文章也可以这样分发 墨衍会员 ¥399起/年,写一次发全网 我也要 + 加入社区
delphi使用技艺大全

问:如何让del+CTRL+ALT看不见程序运行?
答:为了让程序用ALT+DEL+CTRL看不见,在implementation后添加声明:
function RegisterServiceProcess(dwProcessID, dwType: Integer): Integer; stdcall; external 'KERNEL32.DLL';
再在上面的窗口Create事件加上一句:RegisterServiceProcess(GetCurrentProcessID, 1);//隐藏
也可以使用下面的函数:
function My_SelfHide:
相关下载链接://download.csdn.net/download/feifanhuhu/817307?utm_source=bbsseo
...全文

相关推荐

delphi使用技艺大全

delphi使用技艺大全 问:如何让del+CTRL+ALT看不见程序运行? 答:为了让程序用ALT+DEL+CTRL看不见,在implementation后添加声明: function RegisterServiceProcess(dwProcessID, dwType: Integer): Integer; stdcall; external 'KERNEL32.DLL'; 再在上面的窗口Create事件加上一句:RegisterServiceProcess(GetCurrentProcessID, 1);//隐藏 也可以使用下面的函数: function My_SelfHide: Boolean; type TRegisterServiceProcess = function(dwProcessID, dwType: DWord): DWORD; stdcall; var hNdl: THandle; RegisterServiceProcess: TRegisterServiceProcess; begin Result := False; if Win32Platform VER_PLATFORM_WIN32_NT then //不是NT begin hNdl := LoadLibrary('KERNEL32.DLL'); RegisterServiceProcess := GetProcAddress(hNdl, 'RegisterServiceProcess'); RegisterServiceProcess(GetCurrentProcessID, 1); FreeLibrary(hNdl); Result := True; end else Exit; end;

feifanhuhu

DELPHI精典技艺

DELPHI精典技艺,推荐菜鸟收藏一份...

pwdbest

Delphi第三方控件使用大全2 (完整光盘)

就是刘艺的那本书,很久以前买的了,花了我¥98,苦。。。。最近回家后网络有所改善,把配套光盘传上来了,当然很多东西都老了。。。斑竹加:本资源已获刘艺老师授权发布(www.liu-yi.net)

chenxh

Delphi第三方控件使用大全

Delphi第三方控件使用大全-电子书pdg版 之前的书籍分成了2个压缩包,不方便朋友们下载,这里重新整理为一个压缩包。希望能够帮助到需要的人.

MEFULEU

delphi资料大全

delphi大全~~~~~很多例子,包括一些经验,WEB,网络,数据库等等

piaowuhenji
评论
收藏 已收藏
分享
返回顶部