Имя: Усан
E-mail:
erdyneev.ra@yandex.ru
Описание исходника: Пример самоуничтожения программы при помощи bat-файла (программа удаляет саму себя).
Искал в нэте подобную программу, нашел но не рабочую, поэтому выкладываю этот исходник )
Он прокомментирован и достаточно прост, поэтому проблем возникнуть не должно.
Код:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
BAT: string;
implementation
{$R *.dfm}
procedure TForm1.FormDestroy(Sender: TObject);
begin
winexec(Pchar(BAT),sw_hide);
// чтобы не грузить зря систему)))
// Но если Вы уверены в том что программа всё равно должна самоуничтожиться
end;
procedure TForm1.Button1Click(Sender: TObject);
var
kesh: TextFile;
begin
// Создаём bat-файл в папке с программой с именем: имя программы + .bat
BAT:=ExtractFileName(ParamStr(0))+'.BAT';
//
AssignFile(kesh, BAT);
Rewrite(kesh);
Writeln(kesh,':try'
+#13+#10+'del "' + ExtractFileName(ParamStr(0)) + '"'
+#13+#10+'if exist "' + ExtractFileName(ParamStr(0)) + '" goto try'
+#13+#10+'del "' + ExtractFileName(BAT) + '"');
CloseFile(kesh);
//Если не известно будет ли уничтожаться форма то МОЖНО удалить из "winexec(Pchar(BAT),sw_hide);" из события формы "OnDestroy"
//и соостветственнно "вернуть на место" закоментеннный "winexec(Pchar(BAT),sw_hide);":
//winexec(Pchar(BAT),sw_hide);
close;
end;
procedure TForm1.Button2Click(Sender: TObject);
var
kesh: TextFile;
begin
// Создаём bat-файл в папке с программой с именем: имя программы + .bat
BAT:=ExtractFileName(ParamStr(0))+'.BAT';
//
AssignFile(kesh, BAT);
Rewrite(kesh);
Writeln(kesh,':try'
+#13+#10+'del "' + ExtractFileName(ParamStr(0)) + '"'
+#13+#10+'if exist "' + ExtractFileName(ParamStr(0)) + '" goto try'
+#13+#10+'del "' + ExtractFileName(BAT) + '"');
CloseFile(kesh);
end;
end.