[Skyline]

Необходимо, чтобы из дельфи запускался и выполнялся cgi скрипт в инете.
Вот примерно так:
strPCopy(HTMLFile, 'http://my.ru/cgi/main.cgi');
ShellExecute(Handle, 'open', HTMLFile, nil, nil, SW_SHOWNORMAL);

Как изменить код, чтобы cgi скрипт выполнялся, но дельфи не пыталась открыть эту страницу через браузер?

[Aristarh Dark]

возможно Sw_hide???

[Simbar]

Может послать запрос через Indy?
IdHTTP

[Skyline]

Спасибо.
Сделал через IdHTTP
HTTP.Post('http://my.ru/cgi/main.cgi', ss, tmpStream);

Вот кусок кода, если кому тоже понадобиться

use ....... IdHTTP;
.......
private
HTTP : TIdHTTP;
.......
procedure TForm1.FormCreate(Sender: TObject);
begin
HTTP := TIdHttp.Create(Self);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
HTTP.Free;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
tmpStream : TStringStream;
begin
tmpStream := TStringStream.Create('');
memReceive.Text := '';
try
HTTP.Post('http://my.ru/cgi/main.cgi', memPost.Lines, tmpStream);
memReceive.Text := tmpStream.DataString;
except
on E : Exception do memReceive.Text := E.Message;
end;
tmpStream.Free;
end;


PS. main.cgi:
#!/usr/bin/perl
use CGI::Carp qw (fatalsToBrowser);
my $req = <STDIN>;
print $req;
# print eval($req); Для экстремалов