Ver Mensaje Individual
  #1  
Antiguo 26-09-2007
Avatar de arespremium
arespremium arespremium is offline
Miembro
 
Registrado: jul 2007
Posts: 48
Reputación: 0
arespremium Va por buen camino
abrir programa con combobox1

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

Última edición por dec fecha: 26-09-2007 a las 08:51:06.
Responder Con Cita