Создание экзешника запускающего другоую программу

[fuzo]

Пользуюсь некоторыми приложениями, запускающимися без установки так называемые portable версии. В большинстве из них экзешник программы хранится в самой папке, а то и в нескольких, приходится тыркаться по папкам. Как мне написать экзешник, чтобы он не запускал форму, а сразу выполнял открытие других программ.
Вот например я сделал чтобы при открытии формы запускался компас 3д:

procedure TForm1.FormCreate(Sender: TObject);
begin
ShellExecute (Form1.Handle, nil, '\KOMPAS-3D V12\Bin\KOMPAS1.Exe', nil, nil, SW_show);
end;

И сразуже после показа формы она закрывалась:

procedure TForm1.FormShow(Sender: TObject);
begin
close;
end;

Собственно это и напрягае, что выскакивает окошко формы. Как сделать, атк чтобы действие запуска другого приложения выполнялось без появления формы?

[>>STINGER<<]

Form1.Visible:=false;
и ни че моргать не будет

[fuzo]

стоит фолс итак

[>>STINGER<<]

тогда попробуйте так Application.ShowMainForm:=false;
приложение будет висеть только в процессах, на панели задач отображаться тоже не будет

[fuzo]

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

[>>STINGER<<]

procedure TForm1.FormCreate(Sender: TObject);
begin
Application.ShowMainForm:=false;
ShellExecute (Form1.Handle, nil, '\KOMPAS-3D V12\Bin\KOMPAS1.Exe', nil, nil, SW_show);
close;
end;

[New man]

File ->New-> Other-> Console Application;
это в меню

program xxxxxx;
uses windows;
begin
   winexec('\KOMPAS-3D V12\Bin\KOMPAS1.Exe',0);
end;

Зачем создавать прогу с формами если они не нужны?

[>>STINGER<<]

а вот за консольную процедуру спасибо. про нее не знал

[fuzo]

Спасибо. А можно иконку экзешника поменять?

[New man]

Канешна
Project-> Options->Вкладка Application->LoadIcon

Если кому-нидь помог нажмите на весы, а то надоело с низким рейтингом ходить