Problema con shortname

[marcoszorrilla]

Prueba así a ver si te funciona.

Empezado por jonydread

hola amigos tengo un problema con un shortname
lo que pasa que envio un archivo a un programa en cmd que no me acepta las rutas comunes
shortname me sirve pero si tengo un archivo en c:\mi archivo me da un error
este es mi codigo

Código Delphi [-]
Procedure TForm1.Button2Click(Sender: TObject);
 var   ShortName: array[0..255] of char;
 begin      GetShortPathName(PChar(opendialog1.FileName), @ShortName, Length(opendialog1.FileName));        
if FileExists(Opendialog1.FileName) then
         ShellExecute(Handle, 'open', 'arch.cmd', QuotedStr(PChar(@ShortName)), nil, SW_NORMAL)         
else
 ShowMessage('No se ha cargado Archivo');     
end;

si existe alguna otra forma de realizarlo agradeceria mucho su ayuda!
he buscado por google pero no encuentro como realizarlo
gracias!!

Un Saludo.