hzhang: 你知道吗, 用主Form的 OnCloseQuery 可以防止你的程序被关闭(0分)

如果在你主Form的OnCloseQuery中将CanClose设置成false的话, 就没有人能
够关掉你的程序了, Ctrl+Alt+Del也不行, 除非关掉你的机器.

可以新建一个口令对话框(用File|New|Dialog), 在OnCloseQuery的时候检查
口令:
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
if PasswordDlg.ShowModal=mrOK then
if PasswordDlg.Password.text = '12345' then
CanClose:=true
else CanClose:=false;
end;

拦截WM_SYSCOMMAND也是可以的

我早知道了！

会长，看来你对此问题还有点依依不舍呀。

-- by 3h

接受答案了.