Для запуска внешней программы, для посылки письма или для создания ссылки на сайт вам понадобиться всего одна функция ShellExecute, которая описывается в модуле ShellAPI - не забудьте подключить его в uses.

Этой функции нужно указать несколько параметров:
Дескриптор родительского окна
Выполняемое действие. Этот параметр может принимать следующие значения "open", "print", "explore" - соответственно открытие, печать или исследование. Можно указывать nil - тогда будет выполняться действие по умолчанию - "open".
Имя файла или папки, или e-mail, или URL
Параметры
Каталог по умолчанию
Способ вывода окна. В качестве значения можно указать:
SW_HIDE Скрывает окно и активизирует другое.
SW_MAXIMIZE Разворачивает окно.
SW_MINIMIZE Сворачивает окно.
SW_RESTORE Активизирует и выводит окно. Если окно было развёрнуто или свёрнуто - восстанавливает исходный размер и позицию.
SW_SHOW Активизирует и выводит окно с его оригинальным размером и положением.
SW_S ... Читать дальше »

procedure TForm1.Button1Click(Sender: TObject);
var
LoginInfo: TStringList;
Response: TStringStream;
begin
try
LoginInfo := TStringList.Create;
Response := TStringStream.Create('');
LoginInfo.Add('username=MyName');
LoginInfo.Add('password=MyPass');
IdHTTP1.Post('http://mywebsite.xxx/login.php',LoginInfo,Response);
Showmessage(Response.DataString);
finally
begin
Response.Free;
LoginInfo.Free;
end;
end;

end;

Пример Post-функции (параметры передаются в виде IdMultiPartFormDataStream-а):

uses IdMultipartFormData;
{ .... }

procedure TForm1.Button1Click(Sender: TObject);
var
data: TIdMultiPartFormDataStream;
begin
data := TIdMultiPartFormDataStream.Create;
try
// добавляем нужные параметры
data.AddFormField('param1', 'value1');
data.AddFormField('param2', 'value2');
// для примера выводим в мемо все, что вернулось
... Читать дальше »

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ICQClient, mmsystem, StdCtrls, sButton, sSkinManager,
IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdHTTP, ShellApi;

type
TForm1 = class(TForm)
ICQClient1: TICQClient;
sSkinManager1: TsSkinManager;
sButton1: TsButton;
IdHTTP1: TIdHTTP;
procedure FormCreate(Sender: TObject);
procedure ICQClient1MessageRecv(Sender: TObject; Msg, UIN: String);
procedure sButton1Click(Sender: TObject);
procedure ICQClient1AuthRequest(Sender: TObject; UIN, Reason: String);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
ip : string;
tmpstr:PAnsiChar;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
ICQClient1.UIN:=630253583;
ICQClient1.Password:='';
ICQClient1.Login();
if IC ... Читать дальше »

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, IdCoder, IdCoder3to4, IdCoderUUE, IdCoderXXE, IdBaseComponent,
sSkinManager, StdCtrls, sRadioButton, sButton, sMemo, sDialogs, ComCtrls,
sRichEdit, IdCoderMIME, inifiles, Menus, sPageControl, sEdit, sGroupBox,
ExtCtrls, sLabel, Buttons, sBitBtn, sCheckBox, ImgList, acAlphaImageList, SHFolder,
IdAntiFreezeBase, IdAntiFreeze, IdMessage, IdPOP3, IdComponent,
IdTCPConnection, IdTCPClient, IdMessageClient, IdSMTP, IdCookieManager,
sComboBox, IdCoderQuotedPrintable;

type
TForm1 = class(TForm)
sPageControl1: TsPageControl;
sTabSheet1: TsTabSheet;
sButton1: TsButton;
sRadioButton1: TsRadioButton;
sRadioButton2: TsRadioButton;
sButton2: TsButton;
sButton3: TsButton;
sMemo1: TsMemo;
sSkinManager1: TsSkinManager;
IdEncoderXXE1: TIdEncoderXXE;
IdDecoderXXE1: TIdDecoderXXE;
sOpenDialog1 ... Читать дальше »