Ver Mensaje Individual
  #12  
Antiguo 23-09-2008
Avatar de roman
roman roman is offline
Moderador
 
Registrado: may 2003
Ubicación: Ciudad de México
Posts: 20.269
Reputación: 10
roman Es un diamante en brutoroman Es un diamante en brutoroman Es un diamante en bruto
Casualmente tengo aquí un zip.exe y he hecho esta prueba:

Código Delphi [-]
uses ShellApi;

function DQuotedString(S: String): String;
begin
  Result := '"' + S + '"';
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  Parameters: String;

begin
  Parameters :=
    DQuotedString('c:\Documents and Settings\roman\Mis documentos\noseque.zip') +
    ' ' +
    DQuotedString('C:\Documents and Settings\roman\Mis documentos\Trabajo\cdsview\*.*');

  ShowMessage(Parameters);
  ShellExecute(Handle, 'open', 'zip.exe', PChar(Parameters), nil, SW_SHOW);
end;

que funciona bien. Es decir, lo mismo que te digo con las comillas dobles pero más ordenado y usando ShellExecute.

Puedes intentar cambiando FileRun por ShellExecute. Antes puedes probar poner entre comillas dobles tambien a FileRun1.Directory, pues también tiene espacios.

¿De dónde sale FileRun? ¿Es un componente hecho por ustedes?

// Saludos
Responder Con Cita