abrir programa con combobox1

[arespremium]

Mirar la imagen

que modificacion le harian?

que opinan sobre este codigo, se selecciona lo que se decea abrir en el combobox1 presionando el boton y se abre el probrama.

Segun esto:
Mostrar (Integer) especifica la forma en que se mostrará la aplicación especificada en NombreFichero. Hay varios valores posibles:

SW_HIDE
SW_RESTORE
SW_SHOW
SW_SHOWNA
SW_SHOWNORMAL
SW_SHOWDEFAULT
SW_MAXIMIZE
SW_MINIMIZE
SW_SHOWMAXIMIZED
SW_SHOWMINIMIZED
SW_SHOWMINNOACTIVE
SW_SHOWNOACTIVATE

Código Delphi [-]
uses:
 ShellApi;

procedure TForm1.FormCreate(Sender: TObject);
begin
if ComboBox1.ItemIndex <> -0 then
combobox1.items.add('notepad');
combobox1.items.add('calculadora');
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
case ComboBox1.ItemIndex of
 0 : begin // notepad
   Shellexecute('C:\notepad.exe'), SW_Shownormal);
end;
1 : begin // calculadora
  Shellexecute('C:\calculadora.exe'), SW_Shownormal);
end;
end;
end.

aunque dicen que tambien funciona para abrir con:

Código Delphi [-]
begin
  WinExec(PChar('c:\windows\calc.exe'),SW_SHOWNORMAL); {Ejecuta la calculadora}
end;

saludos