Оформил: DeeCo
Автор: http://www.swissdelphicenter.ch

 uses
   ComObj;

 procedure TForm1.FormCreate(Sender: TObject);
 var
   ShellApplication: Variant;
 begin
   ShellApplication := CreateOleObject('Shell.Application');
   ShellApplication.FileRun;
 end;