program Project1;

uses

ShellExec in 'ShellExec.pas' {Form1},
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ShellAPI, StdCtrls, ExtCtrls;


{$R *.RES}
Var
Command, Params,WorkDir : String;

begin
Command :='command.com'+ #0;
Params := #0;
WorkDir := #0;

Application.Initialize;
{ Application.CreateForm(TForm1, Form1);}
Application.Run;
If ShellExecute(NULL ,'open',@Command[1],@params[1],@WorkDir[1],
SW_SHOWNORMAL) < 32 THEN
MessageDlg('Failed to execute ',mtError, [mbOK] , 0);
end.