Problema con shortname

[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', 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!!