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

[jonydread]

puedo aprovechar tu ayuda
el archivo que tengo hand.cmd va a ir instalado en "archivo de programas\miproyecto"

Código Delphi [-]
D:\re2\delphi\HAND.CMD

como vinculo por ej si esta en vez de "D:\" en "C:\" o si se llama "program files" en vez de "archivo de programas"
existe la ubicacion unica de archivo de programas que es %16422% pero no me funciona

asi me funciono

Código Delphi [-]
../../reg2infconvert/HAND.CMD

gracias!