Delphi 重启自身程序代码

最新推荐文章于 2025-08-04 10:57:54 发布

转载最新推荐文章于 2025-08-04 10:57:54 发布 · 900 阅读

3 ·

本内容遵循CC 4.0 BY-SA版权协议

原文链接：http://blog.chinaunix.net/uid-25958655-id-3936192.html

标签

#delphi

收录于

Delphi 专栏收录该内容

99 篇文章

订阅专栏

本文介绍了一个使用Delphi编写的简单应用程序，该程序通过定义特定的事件处理过程实现了自我重启的功能。具体而言，当点击按钮时触发重启，并在关闭程序前通过ShellExecute函数打开程序的执行文件，实现无缝重启体验。

Unit Unit1;

interface

uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes,
Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls,
ShellAPI;

type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
bRestart : Boolean;
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
bRestart := True;
CLose;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if bRestart then
ShellExecute(Self.Handle, 'open', PChar(Application.ExeName), nil, nil, SW_SHOWNORMAL);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
bRestart := False;
end;

end.