Delphi 无法结束进程的程序

本文整理自网络，侵删。

 unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs,ShellAPI;

type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
ShellExecute(0, 'open',PAnsiChar(Application.Exename),nil,nil, SW_SHOWNORMAL);
ExitProcess(0);
end;

end. 
 

相关阅读 >>

Delphi if pos 多条件判断用法交流

Delphi读写utf-8、unicode格式文本文件

Delphixe jpg图片压缩

Delphi 的链式代码

idhttp访问网页出现socket error #10054错误

Delphi 将dbgrid的数据导出到excel文件保存

Delphi 利用tidhttp实现文件下载的分块断点续传

Delphi 隐藏任务栏程序，取消自动对齐和网格对齐

Delphi 对汉字字符串的截取问题

Delphi 获取上一次文件访问时间

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi 无法结束进程的程序