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 Shellexecute('C:\notepad.exe'), SW_Shownormal);
end;
1 : begin 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);
end;
saludos