Question

请问，想在运行DELPHI编写的软件时，如何实现自动重启动的功能？或者自行关闭，由用户重新启动？

就比如，迅雷有个功能，下载完之后，自动关机。我现在不需要自动关机，而希望自动关闭当前运行的软件。

因为我在调试程序时，发现往ACCESS数据库里导入数据表后，如果不重启软件，数据库就不能使用了，老是报错。
所以，我希望有个自动重启的功能，来解决这个问题。

也请各位高手提供更好的解决办法。谢谢！

Answer 1

给你个过程，调用下就行了
//重新启动计算机
procedure ResetComput;
var
tkp:TOKEN_PRIVILEGES;
rr:Dword;
hToken:THANDLE;
begin
OpenProcessToken(GetCurrentProcess(),TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY,hToken);
LookupPrivilegeValue(nil,'SeShutdownPrivilege',tkp.Privileges[0].Luid);
tkp.PrivilegeCount:=1;
tkp.Privileges[0].Attributes:=SE_PRIVILEGE_ENABLED;
AdjustTokenPrivileges(hToken,FALSE,tkp,0,nil,rr);
ExitWindowsEx(EWX_REBOOT,0);
end;

Answer 2

你是不是操作完数据库之后没有关闭数据库的连接？

Answer 3

导入数据就要用户重启, 未免太..
最好再看看代码, 参考楼上回答