ejecutar ap.ext. dir. y nombre in & outfile

[jonydread]

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