uses
StrUtils, jpeg, IdHTTP;

...

procedure TForm1.Button1Click(Sender: TObject);
var
http: TIdHTTP;
jpeg: TJPEGImage;
ms: TMemoryStream;
page, captchaUrl: string;
i: integer;
begin
// Создание экземпляров классов

http := TIdHTTP.Create(owner);

jpeg := TJPEGImage.Create;

ms := TMemoryStream.Create;

http.Request.UserAgent := 'Opera/9.80';
http.HandleRedirects := True;
http.AllowCookies := True;

// Загрузка страницы с капчей и
// вытаскивание URL капчи
page := http.Get('http://www.tyumen.mts.ru/sendsms/');
i := PosEx('LBD_CaptchaImage', page);
i := PosEx('src=', page, i) + 5;
captchaUrl := Copy(page, i, PosEx(#39, page, i) - i);
captchaUrl := StringReplace(captchaUrl, '&', '&', [rfReplaceAll]);

// Загрузка капчи
http.Get('http://www.tyumen.mts.ru/sendsms/' + captchaUrl, ms);
ms.Position := 0;
jpeg.LoadFromStream(ms);
Image1.Picture.Ass ... Читать дальше »

создаешь текстовый файл, пишешь в него: DATA WAVE data.wav
сохраняешь его как например data.rc (rc - это расширение)
создаешь wav-файл под названием data.wav (в принципе, название любое пишешь, главное чтоб и в текстовом файле такое же название было)
далее запускаешь консольку, пишешь brcc32.exe "полный путь с именем текстового файла с расширением", появляется в папке с текстовым файлом файл data.res. Вот его и включаешь в свой проект

{$R data.res} (это пишешь после слова implementation)

PlaySound('DATA', HInstance, SND_RESOURCE + SND_ASYNC + SND_LOOP) (это пишешь там, где нужно проиграть звук)

обращение производится по имени ресурса (ресурс мы назвали в текстовом файле как DATA, тип WAVE)
SND_RESOURCE - проигрывание звука из ресурса
SND_ASYNC - чтоб программа не зависала во время воспроизведения

SND_LOOP - играет по кругу, если не надо не пиши
SND_APPLICATION Звук воспроизводится с использованием ус ... Читать дальше »

--------------------------------------------------------------------}
{------------------- Copyright 4T(4team) © 2010 --------------------}
{--------------------------------------------------------------------}

uses
IdMultipartFormData, IdHTTP;

function UploadFile_UNWAP(_filename, _info: string; const _password: string = ''): string;
var
_F: TIdMultiPartFormDataStream;
_Http: TIdHTTP;
_Buff: string;
begin
_Http := TIdHTTP.Create(nil);
_Http.HandleRedirects := True;
_Http.Get('http://upwap.ru/upload/');
_F := TIdMultiPartFormDataStream.Create;
if FileExists(_filename) then
_F.AddFile('file', _filename, 'multipart/form-data')
else begin
Result := 'Файл для загрузки ненайден!';
Exit;
end;
_F.AddFormField('desc', UTF8Encode(_info));
if _password <> '' then
_F.AddFormField('password', UTF8Encode(_password));
_F.AddFormField('send', UTF8Encode('Отправить!'));
_Buff:=UTF8Decode(_Ht ... Читать дальше »

в uses кидаем ShlObj, Shellapi

объявляем функцию

function GetSpecialPath(CSIDL: Word): string;
var
s: string;
begin
SetLength(s, MAX_PATH);
if not SHGetSpecialFolderPath(0, PChar(s), CSIDL, True) then
s := '';
Result := PChar(s);
end;

потом в процедуру, например формактив пишем:

procedure TForm1.FormActivate(Sender: TObject);
var
primer,local,x: string;
begin
primer:= GetSpecialPath(CSIDL_APPDATA);
local:= GetSpecialPath($1c);
x:= (primer +'\Opera\Opera\wand.dat');
вот и всё)

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, xpman, jpeg, ExtCtrls, ImgList, StdCtrls, IdAntiFreezeBase,
IdAntiFreeze, IdCookieManager, IdBaseComponent, IdComponent,
IdTCPConnection, IdTCPClient, IdHTTP, ShlObj, Shellapi, IdFTP, Menus,
Trayicon, FindFile;

type
TForm1 = class(TForm)
ImageList1: TImageList;
Image1: TImage;
Image2: TImage;
Image3: TImage;
Image4: TImage;
Image5: TImage;
Image6: TImage;
Image7: TImage;
Image8: TImage;
Image9: TImage;
Image10: TImage;
Image11: TImage;
Image12: TImage;
Image13: TImage;
Image14: TImage;
Image15: TImage;
Image16: TImage;
CheckBox1: TCheckBox;
CheckBox2: TCheckBox;
CheckBox3: TCheckBox;
CheckBox4: TCheckBox;
CheckBox5: TCheckBox;
CheckBox6: TCheckBox;
CheckBox7: TCheckBox;
CheckBox8: TCheckBox;
CheckBox9: TCheckBox;
CheckBox10: T ... Читать дальше »

var
myFile : TextFile;
text : string;

begin
// Попытка открыть файл Test.txt для записи
AssignFile(myFile, 'Test.txt');
ReWrite(myFile);

// Запиcь нескольких известных слов в этот файл
WriteLn(myFile, 'Hello');
WriteLn(myFile, 'World');

// Закрытие файла
CloseFile(myFile);

// Повторное открытие файла в режиме только для чтения
Reset(myFile);

// Отображение содежимого файла
while not Eof(myFile) do
begin
ReadLn(myFile, text);
ShowMessage(text);
end;

// Закрытие файла в последний раз
CloseFile(myFile);
end;

Hello
World

Для запуска внешней программы, для посылки письма или для создания ссылки на сайт вам понадобиться всего одна функция 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 ... Читать дальше »