Main Menu y Botones

[feliz-58]

Ok amigo, voy a probar, si me funciona te lo hago saber,muchas gracias.

//Saludos

[[Caral]]

Hola
Perdona la variable tiene que ser Pchar, asi:

Código Delphi [-]
var
  Form1: TForm1;
   dato: PChar;
implementation

Y usarlo asi:

Código Delphi [-]
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
ShellExecute (Handle, 'open', PChar(dato+'prueba1.txt'), ' ', ' ', SW_SHOWNORMAL);
end;


procedure TForm1.BitBtn2Click(Sender: TObject);
begin
ShellExecute (Handle, 'open', PChar(dato+'prueba2.txt'), ' ', ' ', SW_SHOWNORMAL);
end;

Saludos

[feliz-58]

Gracias, Funciono Perfectamente...

Estaba Analizando el anterior y me daba error y ya hiba a notificarte y me llego tu correo jaja...

Fue de mucha ayuda, Gracias amigo.

//Saludos

[[Caral]]

Hola

Saludos

[Gerson12]

hola bueno espero esto tambien te pueda ayudar
puedes poner en un edit la direcion de el archivo bueno es algo muy simple pero ahora no tengo puesto el delphi para ver si te puedo ayudar
ShellExecute (Handle, 'open', Edit1.text, nil, nil, SW_SHOWNORMAL);