Spustiť EXE v delphi

uses ShellApi;
...
ShellExecute(Handle, 'open', 'c:\Windows\notepad.exe', nil, nil, SW_SHOWNORMAL) ;

function DeleteFile(const FileName: string): Boolean;

procedure TForm1.SpustiClick(Sender: TObject);
var play : PansiChar;
begin
  {Spusti EXE}
  play:= edit1.text + '.exe';
  ShellExecute(Handle, 'open',  play , nil, nil, SW_SHOWNORMAL) ;
  NACITAJ;
end;

Many times we need to execute another program from ours. To do this, we can use the ShellExecute function declared in the ShellAPI unit. The syntax is:

ShellExecute(Handle, Operation, FileName, Params, Folder, ShowCmd)

    * Handle (HWND) is the window handle of the parent window, for instance the window handle of the main form of our application.
    * Operation (PChar) is a pointer to a null terminated string that contains the name of the operation to perform, which can be 'edit' (launches an editor and opens the document for editing), 'explore' (explores the specified directory), 'find' (opens the find window starting from the specified directory), 'open' (executes or opens the file with the associated application), 'print' (printes the specified file) or 'properties' (displays the file or folder's properties). This parameter can also be nil and in this case 'open' will be assumed.
    * FileName (PChar) is a pointer to a null terminated string that contains the path and the name of the application to execute, the document to open or print with its associated application, or the folder to open or explore.
    * Params (PChar) is a pointer to a null terminated string that contains the parameters that will be passed to application specified in FileName. If FileName doesn't indicate an executable file but a document, then Params should be nil.
    * Folder (PChar) is a pointer to a null terminated string that contains the path that will be taken as the application's folder by default. This parameter can be nil.
    * ShowCmd (Integer) indicates the way the application specified in FileName will be shown. There are various possible values:
      SW_HIDE
      SW_RESTORE
      SW_SHOW
      SW_SHOWNA
              SW_SHOWNORMAL
      SW_SHOWDEFAULT
      SW_MAXIMIZE
      SW_MINIMIZE
              SW_SHOWMAXIMIZED
      SW_SHOWMINIMIZED
      SW_SHOWMINNOACTIVE
      SW_SHOWNOACTIVATE

procedure TForm1.SpustiClick(Sender: TObject);
var play : string;
begin
  {Spusti EXE}
  play:= edit1.text + '.exe';
  ShellExecute(Handle, 'open',  PAnsiChar(play) , nil, nil,  SW_SHOWNORMAL) ;
  NACITAJ;
end;