Ver Mensaje Individual
  #6  
Antiguo 16-11-2011
jonydread jonydread is offline
Miembro
NULL
 
Registrado: nov 2011
Posts: 157
Reputación: 15
jonydread Va por buen camino
Amigo tengo dos dudas para este codigo
1ºComo puedo aplicar el shortname para las rutas conservando el nombre del archivo ya que lo aplique de este modo
Código Delphi [-]
var Origen, Destino,FileName : string;
begin
FileName := ExtractFileName(Opendialog1.filename);
Origen := GetshortName(Opendialog1.FileName);
Destino := ChangeFileExt(ExtractFileName(FileName),'.inf');
 LlamarReg2inf(Handle,'REG2INF.EXE',Origen,Destino );
end;
me entrega bien pero si el nombre de archivo tiene espacio no hace nada por ejemplo
mi archivo.xx
pero si esta asi
miarchivo.xx funciona ok
2ºAplico HINSTANCE pero no me da resultado la coloque en Tform1.LlamarReg2inf
para que responda a errores y sepa cuando el resultado fue exitoso
gracias por tu tiempo

Última edición por jonydread fecha: 16-11-2011 a las 05:04:58.
Responder Con Cita