Problema con shortname

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

[roman]

Veo que, en efecto, hay algún problema cuando se usa la rutina con un nombre que de por sí es corto. Intenta con esta función:

Código Delphi [-]
function GetShortName(const FileName: String): String;
var
  ShortName: PChar;
  Size: Cardinal;

begin
  Size := GetShortPathName(PChar(FileName), nil, 0);

  if Size > 0 then
  begin
    GetMem(ShortName, Size);
    GetShortPathName(PChar(FileName), ShortName, Size);
    Result := ShortName;
    FreeMem(ShortName);
  end
  else
    Result := FileName;
end;

// Saludos

[jonydread]

yap
tengo asi mi codigo

Código Delphi [-]
procedure TForm1.Button2Click(Sender: TObject);
var
    ShortName: PChar;
    Size: Cardinal;
begin
 Size := GetShortPathName(PChar(Opendialog1.FileName), nil, 0);
  if Size > 0 then
      begin
    GetMem(ShortName, Size);
    GetShortPathName(PChar(Opendialog1.FileName), ShortName, Size);
    Result := ShortName;
    FreeMem(ShortName);
  end
  else
    Result := Opendialog1.FileName;
       if FileExists(Opendialog1.FileName) then
        ShellExecute(Handle, 'open', 'D:\re2\delphi\HAND.CMD', PChar(@ShortName), nil, SW_NORMAL)
        else ShowMessage('No se ha cargado Archivo');
    end;

me da un error en esta linea

Código Delphi [-]
Result := ShortName;

[roman]

Eso pasa porque estás mezclando código. La idea de la función que puse es aislar el problema de obtener el nombre corto. Prueba así:

Código Delphi [-]
procedure TForm1.Button2Click(Sender: TObject);
begin
  if FileExists(Opendialog1.FileName) then
    ShellExecute(Handle, 'open', 'D:\re2\delphi\HAND.CMD', PChar(GetShortName(Opendialog1.FileName)), nil, SW_NORMAL)
  else
    ShowMessage('No se ha cargado Archivo');
end;

// Saludos

[jonydread]

amigo eres genial!!
funciona!!
ya tenia la cabeza quemada jajja
muchas gracias vuelvo a reiterar que es un gran foro con grandes personas!!!