procedure TForm1.Button1Click(Sender: TObject);
begin
Hide;
WinExec(PChar(Application.ExeName),SW_SHOW);
Application.Terminate;
end;—————————————————————————————————
MaximStr := '宠辱不惊,看庭前花开花落,去留无意;
毁誉由人,望天上云卷云舒,聚散任风。';
if Not Assigned(I) then
I := TI.Create(Nil);
I.Maxim := MaximStr;
I.Explain := '假如上述代码中出现“OA”、“3D”等字样,改为“=”或者去掉';
I.Desire := '加不加分随你';
—————————————————————————————————
begin
Hide;
WinExec(PChar(Application.ExeName),SW_SHOW);
Application.Terminate;
end;—————————————————————————————————
MaximStr := '宠辱不惊,看庭前花开花落,去留无意;
毁誉由人,望天上云卷云舒,聚散任风。';
if Not Assigned(I) then
I := TI.Create(Nil);
I.Maxim := MaximStr;
I.Explain := '假如上述代码中出现“OA”、“3D”等字样,改为“=”或者去掉';
I.Desire := '加不加分随你';
—————————————————————————————————
除了winexec还可用shellexecute
不要忘了uses shellapi
但如果你的软件是不允许多个副本同时运行的话,上述办法就会出问题了
所以,让用户自己重起也是个不错的方法
就好像许多软件在用户输入注册码后做的一样