重新登录窗口如何做?

Question

同上.

Answer 1

我什么也没有做，也就是让系统重新启动了一次：procedure TMainForm.R1Click(Sender: TObject);
var
  hModule: THandle;
  buff:  array[0..255] of Char;
begin
  hModule := GetModuleHandle(nil);
  GetModuleFileName(hModule, buff, sizeof(buff));  Application.Terminate;
  WinExec(buff,SW_NORMAL);
end;

Answer 2

谢谢 Drate(鸟窝里的虫),只是重新登录前,原系统界面没有能够立即消失.
美中不足.