private
{ Private declarations }
procedure QueryEndSession(var Msg:TMessage);Message WM_QueryEndSession;
......
procedure TForm1.QueryEndSession(var Msg:TMessage);
begin
Msg.Result := 0;
end;
private
{ Private declarations }
procedure QueryEndSession(var Msg:TMessage);Message WM_QueryEndSession;
......
procedure TForm1.QueryEndSession(var Msg:TMessage);
begin
Msg.Result := 0;
end;