Ver Mensaje Individual
  #12  
Antiguo 07-11-2011
jonydread jonydread is offline
Miembro
NULL
 
Registrado: nov 2011
Posts: 157
Reputación: 13
jonydread Va por buen camino
Cita:
Empezado por ecfisa Ver Mensaje
Hola.

Creo que el problema se produce por que Handler.CMD no puede manejar los nombres largos de archivo, probá de este modo:
Código Delphi [-]
uses ShellApi;

procedure TForm1.Button1Click(Sender: TObject);
var
  ShortName: array[0..255] of char;
begin
  OpenDialog1.Filter:= 'Archivos de registro|*.REG';
  with OpenDialog1 do
    if Execute then
    begin
      GetShortPathName(PChar(FileName), @ShortName, Length(FileName));
      ShellExecute(Handle, 'open', 'C:\HANDLER.CMD', PChar(@ShortName), nil, SW_NORMAL);
    end;
end;

Un saludo.
Al final si funciono!! Gracias!
Responder Con Cita