procedure TForm2.hotkey1HotKey(Sender: TObject);
begin try
application.Restore;
if self.WindowState = wsMinimized then begin
   self.WindowState :=wsMaximized;
end;
form1.SetForegroundWindow98(form1.Handle);
form2.show;
except
on E : Exception do _log_entry_error(E.ClassName,E.Message,'G90000');
end;End;