ShellExecute con Carpetas con Espacios

[[duilioisola]]

Asegúrate de qué es lo que estás abriendo. Ten en cuenta que al compilar puede ser que estés en una carpeta del tipo C:\...\Debug\ o C:\...\Release\.

Código Delphi [-]
  T_string := ExtractFilePath(Application.ExeName) + 'SERVINETCOMPRY.exe' ;
  T_string := char(34) +  T_string +  char(34);   // char(34) = '"';

  // El valor de T_string DEBERIA SER : "C:\SERVINET2014 X2\DELPHI\SERVINETCOMPRY.exe"
  // D.USUARIO = tipo string

  // Muestro un mensaje en la pantalla para verificar que los datos son correctos.
  ShowMessage('El valor de T_String es ' + T_String);
  ShowMessage('El valor de D.USUARIO es ' + D.USUARIO);

  Application.ShowMessage
  W_ERROR:= ShellExecute(Handle, 'open', PChar(T_string) , PChar(D.USUARIO ), '', SW_SHOWNORMAL);