I
import
Unregistered / Unconfirmed
GUEST, unregistred user!
需要捕捉WM_SYSCOMMAND消息，然后作出判断。
procedure WMSysCommand(var Msg: TMessage);
begin
if Msg.wParam <> SC_CLOSE then
inherited;
end;
procedure WMSysCommand(var Msg: TMessage);
begin
if Msg.wParam <> SC_CLOSE then
inherited;
end;