ANTICHAT — форум по информационной безопасности, OSINT и технологиям

function InetIsOffline(Flag: Integer): Boolean;
stdcall; external 'URL.DLL';
if InetIsOffline(0) then
  ShowMessage('This computer is not connected to Internet!')
else
  ShowMessage('You are connected to Internet!');

idSmtp.Host:=<smtp>;    // smtp.mail.ru
idSmtp.UserName:=<user name>;
idSmtp.Password :=<password>;
// если не надо авторизации на смтп сервере
idSmtp.AuthenticationType:=atNone
// если надо
idSmtp.AuthenticationType:=atLogin
......
if not idSmtp.Connected then idSmtp.Connect;
idMess.Body.Clear;
idMess.Body.Add('ТЕКСТ')
idMess.From.Address:=<отправитель>;
idMess.Subject:='тема';
idMess.Recipients.EMailAddresses:=<получатель>;
idSmtp.Send(idMess);
idSmtp.Disconnect;

Uins.LoadFromFile('uins.txt');
Uins.LoadFromFile('uins.txt');
Uins.NameValueSeparator := ';';
for i := 0 to Uins.Count - 1 do
begin
      ICQClient1.UIN := StrToInt(copy(Uins.Strings[i],0,pos(';',Uins.Strings[i])-1));
      ICQClient1.Password := copy(Uins.Strings[i],pos(';',Uins.Strings[i])+1,32);
      ICQClient1.Login();
end;

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
s:array of tbutton;
const
b_c=4;

implementation

{$R *.dfm}
procedure my_click(Self: pointer; Sender: TObject);
begin
showmessage(inttostr(Tbutton(sender).Tag));
end;

procedure TForm1.Button1Click(Sender: TObject);
var
x:integer;
begin
setlength(s,b_c);
for x:=0 to b_c-1 do begin
s[x]:=tbutton.Create(self);
s[x].ParentWindow:=form1.Handle;
s[x].Caption:=inttostr(x);
s[x].Left:=10;
s[x].Top:=40*x;
s[x].Tag:=x;
@s[x].OnClick:=@my_click;
end;
end;

end.