Main Menu y Botones

[[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