Lepuke,
Cita:
Empezado por Lepuke
...El problema es que siempre me dice "Unterminated string" (En tiempo de compilación)...desde los guiones en adelante...
|
Revisa este código:
Código Delphi
[-]
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ShellAPI, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
public
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
Command : String;
Parameters : String;
begin
Command := 'wget';
Parameters := '--no-check-certificate --user-agent=' + '"' + 'user agent' + '"' + ' -E -H -k -K -p https://www.probando.com';
ShellExecute(Handle, nil, PChar(Command) , PChar(Parameters), nil, SW_SHOWNORMAL);
end;
end.
El código anterior en Delphi 7 sobre Windows 7 x32,
compila sin ningún mensaje de error.
Revisa esta información:
Espero sea útil
Nelson.