funciona ese codigo si coloco las rutas que no es la idea
Código Delphi
[-] PChar('c:\miarchivo.reg')
en cambio asi
Código Delphi
[-] PChar(OpenDialog1.FileName)
no hace nada probe con edit1.text y tampoco lo botones que tengo estan asi
Código Delphi
[-]
procedure TForm1.Button1Click(Sender: TObject);
begin
opendialog1.Filter := 'Archivos de registro|*.reg';
opendialog1.Execute;
if FileExists(OpenDialog1.FileName) then
else
ShowMessage(Edit1.Text+' Archivo no encontrado');
edit1.Text := OpenDialog1.FileName;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
ShellExecute(Handle, 'open', 'HANDLER.CMD', PChar(OpenDialog1.FileName), nil, SW_NORMAL);
end;
primer boton carga archivo
segundo lo envia al programa externo
gracias!