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!!

[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.

[jonydread]

no entendi tu respuesta no existe forma de solucionar ese error??
pngo otro ejemplo
c:\doc\delphi\tmn.inf , dice no existe
c:\doc\delphi\copiadetmn.inf , lo convierte sin problemas

[jonydread]

disculpa no puedo editar el mensaje de arriva
agrege

QuotedStr(PChar(@ShortName))

y dice Incompatible types: 'String' and 'PAnsiChar'
tambien trate de colocar una condicion para ejecutar shortname si hay un espacio en la ruta pero no logro concretarla
puse

Código Delphi [-]
begin
if edit1.text:=' ' then
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;

muchisimas gracias por la ayuda!!

[roman]

Empezado por jonydread

agrege

QuotedStr(PChar(@ShortName))

y dice Incompatible types: 'String' and 'PAnsiChar'

Intenta así:

Código Delphi [-]
PChar(QuotedStr(ShortName)

// Saludos

[jonydread]

ya no me sale error en el codigo pero igual no me toma el archivo
si esta
c:\doc\delphi\tmn.inf , dice no existe
c:\doc\delphi\copiadetmn.inf , lo toma sin problemas
existe algo para ejecutar shortname a partir de ciertos caracteres estoy muy complicado y no logro encontrar solucion
gracias!