ALT+F4屏的话,你只要在Form的CloseQuery中写到CanClose:=False;CTRL+ALT+DEL的话你看下面的代码
Use shellapi;
function RegisterServiceProcess (dwProcessID, dwType: DWord) : DWord; stdcall; external 'KERNEL32.DLL';
RegisterServiceProcess(GetCurrentProcessID,1);//在程序一启动就不让它显示在任务列表中
Use shellapi;
function RegisterServiceProcess (dwProcessID, dwType: DWord) : DWord; stdcall; external 'KERNEL32.DLL';
RegisterServiceProcess(GetCurrentProcessID,1);//在程序一启动就不让它显示在任务列表中
解决方案 »
- 怎样发布基于Microsoft SQL Server的程序
- 用什么函数画椭圆弧1
- 为什么我的FastReport在预览时速度非常慢!FastReport2和FastReport3都试过了!
- 谁帮帮我,给我个DBCHART的例子,谢谢先~~
- FASTREPORT中提取年份问题
- Query1.ParamByName['xm'].AsString:= edit1.Text;不行,而改为:Query1.ParamByName('xm').AsString:= edit1.Text;就可以了.
- 高分求一问题!
- 不同数据库SQL表达式的差异
- 那里有Delphi 5 开发人员指南 英文版下载
- 有高手在吗
- 如何在TTABSHEET中动态创建一个控件
- 在没有BDE环境的机器上如何运行Delphi程序
要使系统的热启动键 Ctrl+Alt+Del 失效,使用以下语句:
SystemParametersInfo(SPI_SCREENSAVERRUNNING, 1, 0, 0);
恢复使用以下语句:
SystemParametersInfo(SPI_SCREENSAVERRUNNING, 0, 0, 0);2,使窗体的 Alt+F4 快捷键(关闭窗体)失效
把 Form 的 KeyPreview 设为 True,然后响应 OnKeyDown 事件:
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
if (Key=VK_F4) and (ssAlt in shift) then
Key :=0;
end;
showwindow(application.handle,sw_hide)