[PESTS]

Сообщение от psh96

Привет всем!
Скажите пожалуиста как зделать:
1. Загрузить контакты всех пользователей в combobox

Код:

procedure TForm1.ICQClientServerListRecv(Sender: TObject;
  SrvContactList: TList);
var
  i : LongInt;
  UserInfo: TUINEntry;
  UINNickItem : PUINNickItem; 
  Full_Contact:boolean;
begin
  if Full_Contact then
  begin
    Full_Contact:=False;
    ComboBox1.Clear;
  end;
  if SrvContactList.Count > 0 then
    for i := 0 to SrvContactList.Count - 1 do
      begin
        UserInfo := PUINEntry(SrvContactList.Items[i])^;
        if UserInfo.CType = 0 then
          begin
            ComboBox1.Items.Add(IntToStr(UserInfo.UIN));
            GetMem(UINNickItem, SizeOf(UINNickItem^));
          end;
      end;
   ICQClient.DestroyUINList(SrvContactList);
end;

Сообщение от psh96

2. Зделать так что если пришло любое сообщение то ответить что-либо и ответ должен быть на все сообщения одинаковый.

Код:

procedure TForm1.ICQClientMessageRecv(Sender: TObject; Msg, UIN: String);
var
 LogFile: TextFile;
begin
  ICQClient.SendMessage(StrToInt(UIN),'Привет');
end;

Admin: Где теги? При рецедиве бан!