[bibika]

Помогите пожалуйста, есть вот такой код:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36

unit Unit1;   interface   uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls, ShellApi;   type   TForm1 = class(TForm)     btn1: TButton;     procedure btn1Click(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end;   var   Form1: TForm1;   implementation   {$R *.dfm}   procedure TForm1.btn1Click(Sender: TObject);   var hndl: hwnd; begin if ShellExecute(hndl, 'open', 'notepad.exe', nil, nil, SW_SHOWNORMAL) < 32 then     begin       ShowMessage('Error')     end; end;   end.

что в нем поменять, что б после успешного запуска в данном случае блокнота, программа закрывалась.

Спасибо

[Karsh]

Код:

1 2 3 4 5 6 7

procedure TForm1.btn1Click(Sender: TObject); begin   if ShellExecute(Handle, 'open', 'notepad.exe', '', '', SW_SHOWNORMAL) then     Close   else     ShowMessage('Error'); end;