Открытие программ

[silverion]

Помогите пожалуйста! Мне нужно сделать программу где будет меню, и при нажатии меню должны открываться другие, ранее созданные мной программы, как это сделать? очень надо

 

[Guest]

Если "ранее созданные мной программы" это exe файлы, то можно так:

procedure TfrmMain.mnuDivSpsClick(Sender: TObject);
var
SI:TStartupInfo;
PI:TProcessInformation;
begin
FillChar(SI,SizeOf(SI),0);
SI.cb:=SizeOf(SI);
CreateProcess(PAnsiChar(PatchToProgramm+'Divsps.exe'),nil,nil,nil,False,0,nil,nil,SI,PI);
end;

 

[Poseidon]

Правильнее запускать функцией ShellExecute