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