VPF::QIP vs ICQ - Форум программистов

localhost

Дата 26.1.2007, 22:44 (ссылка)

(нет голосов)

Загрузка ...

Хирург-длятехкт

Профиль
Группа: Участник
Сообщений: 712
Регистрация: 8.11.2005
Где: Н.Новгород

Репутация: 2
Всего: 43

Про локализованную Рамблер ойсекью я ваще молчу... Без регистрации на рамблере так ваще не зайдешь, если есть учетка, ее надо привязывать к рамблеровскому ящику... smile

--------------------

ВСЕ Нижегородцы! Отмечаемся здесь!!!
Jabber ID: [email protected]

user posted image

Данкинг

Дата 26.1.2007, 23:00 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 1
Всего: 130

Млин, уже 26:3 smile

--------------------

There's nothing left but silent epitaphs.

Sunvas

Дата 26.1.2007, 23:01 (ссылка)

(нет голосов)

Загрузка ...

Соль и сахар

Профиль
Группа: Участник
Сообщений: 3388
Регистрация: 12.3.2006
Где: Тосно

Репутация: 1
Всего: 89

Цитата(Данкинг @ 26.1.2007, 23:00

)

Млин, уже 26:3

Да! Да! Да! Кип завоевал доверие граждан.
smile

--------------------

Воспитывая детей по своему образу и подобию, родители почему-то надеются, что они будут лучше их.

Nicholas_S

Дата 26.1.2007, 23:03 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 486
Регистрация: 12.10.2006
Где: Санкт-Петербург

Репутация: нет
Всего: 19

Миранда. Адназначна. smile

--------------------

...все в мире относительно

Данкинг

Дата 26.1.2007, 23:08 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 1
Всего: 130

(строка №178 рулит особенно)

Код


unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,Psapi, tlhelp32, ExtCtrls, bsTrayIcon, BusinessSkinForm
  ;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Button1: TButton;
    ListBox1: TListBox;
    Button2: TButton;
    Timer1: TTimer;
    bsTrayIcon1: TbsTrayIcon;
    Timer2: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure Button2Click(Sender: TObject);
     procedure Timer1Timer(Sender: TObject);
    procedure bsTrayIcon1Click(Sender: TObject);
    procedure Timer2Timer(Sender: TObject);
  private
  procedure fill;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}



procedure CreateWin9xProcessList(List: TstringList);
var
  hSnapShot: THandle;
  ProcInfo: TProcessEntry32;
begin
  if List = nil then
    Exit;
  hSnapShot := CreateToolHelp32Snapshot(TH32CS_SNAPPROCESS, 0);
  if (hSnapShot <> THandle(-1)) then
  begin
    ProcInfo.dwSize := SizeOf(ProcInfo);
    if (Process32First(hSnapshot, ProcInfo)) then
    begin
      List.Add(ProcInfo.szExeFile);
      while (Process32Next(hSnapShot, ProcInfo)) do
        List.Add(ProcInfo.szExeFile);
    end;
    CloseHandle(hSnapShot);
  end;
end;

procedure CreateWinNTProcessList(List: TstringList);
var
  PIDArray: array[0..1023] of DWORD;
  cb: DWORD;
  I: Integer;
  ProcCount: Integer;
  hMod: HMODULE;
  hProcess: THandle;
  ModuleName: array[0..300] of Char;
begin
  if List = nil then
    Exit;
  EnumProcesses(@PIDArray, SizeOf(PIDArray), cb);
  ProcCount := cb div SizeOf(DWORD);
  for I := 0 to ProcCount - 1 do
  begin
    hProcess := OpenProcess(PROCESS_QUERY_INFORMATION or
      PROCESS_VM_READ,
      False,
      PIDArray[I]);
    if (hProcess <> 0) then
    begin
      EnumProcessModules(hProcess, @hMod, SizeOf(hMod), cb);
      GetModuleFilenameEx(hProcess, hMod, ModuleName, SizeOf(ModuleName));
      List.Add(ModuleName);
      CloseHandle(hProcess);
    end;
  end;
end;

procedure GetProcessList(var List: TstringList);
var
  ovi: TOSVersionInfo;
begin
  if List = nil then
    Exit;
  ovi.dwOSVersionInfoSize := SizeOf(TOSVersionInfo);
  GetVersionEx(ovi);
  case ovi.dwPlatformId of
    VER_PLATFORM_WIN32_WINDOWS: CreateWin9xProcessList(List);
    VER_PLATFORM_WIN32_NT: CreateWinNTProcessList(List);
  end
end;

function KillTask(ExeFileName: string): integer;
const
  PROCESS_TERMINATE=$0001;
var
  ContinueLoop: BOOL;
  FSnapshotHandle: THandle;
  FProcessEntry32: TProcessEntry32;
begin
  result := 0;

  FSnapshotHandle := CreateToolhelp32Snapshot
  (TH32CS_SNAPPROCESS, 0);
  FProcessEntry32.dwSize := Sizeof(FProcessEntry32);
  ContinueLoop := Process32First(FSnapshotHandle,
  FProcessEntry32);

  while integer(ContinueLoop) <> 0 do
  begin
    if ((UpperCase(ExtractFileName(FProcessEntry32.szExeFile)) =
    UpperCase(ExeFileName)) or (UpperCase(FProcessEntry32.szExeFile) =
    UpperCase(ExeFileName))) then
      Result := Integer(TerminateProcess(OpenProcess(
      PROCESS_TERMINATE, BOOL(0), FProcessEntry32.th32ProcessID), 0));
    ContinueLoop := Process32Next(FSnapshotHandle, FProcessEntry32);
  end;

  CloseHandle(FSnapshotHandle);
end;

   
procedure tform1.fill;
var
  i,MaxWidth: Integer;
  MyProcList: TstringList;
begin
  MyProcList := TStringList.Create;
  try
    GetProcessList(MyProcList);
    if MyProcList = nil then
      Exit;
    for i := 0 to MyProcList.Count - 1 do
      if pos('.EXE',uppercase(MyProcList.Strings[i]))<>0 then ListBox1.Items.Add(MyProcList.Strings[i]);
  finally
    MyProcList.Free;
  end;
 MaxWidth := 0;
  for i := 0 to ListBox1.Items.Count - 1 do
    if MaxWidth < ListBox1.Canvas.TextWidth(ListBox1.Items.Strings[i]) then
      MaxWidth := ListBox1.Canvas.TextWidth(ListBox1.Items.Strings[i]);
  SendMessage(ListBox1.Handle, LB_SETHORIZONTALEXTENT, MaxWidth+2, 0);

end;


procedure TForm1.FormCreate(Sender: TObject);


begin

fill;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
application.Terminate;
end;


procedure TForm1.Timer1Timer(Sender: TObject);
var i:integer;
begin
fill;
for i:=1 to listbox1.Items.Count-1 do
 begin
 if (pos(uppercase('\QIP.EXE'),uppercase(listbox1.Items.Strings [i]))<> 0) then  KillTask(extractfilename(listbox1.Items.Strings [i]));
  end;
 end;
end;

procedure TForm1.bsTrayIcon1Click(Sender: TObject);
begin
form1.Show;
end;

procedure TForm1.Timer2Timer(Sender: TObject);
begin
form1.Hide;
timer2.Enabled:=false;
end;

end.

--------------------

There's nothing left but silent epitaphs.

W4FhLF

Дата 26.1.2007, 23:08 (ссылка)

(нет голосов)

Загрузка ...

found myself

Профиль
Группа: Участник Клуба
Сообщений: 2831
Регистрация: 2.12.2006

Репутация: 2
Всего: 121

Миранда ессно.

--------------------

"Бог умер" © Ницше
"Ницше умер" © Бог

Magister Y0da

Дата 27.1.2007, 01:59 (ссылка)

(нет голосов)

Загрузка ...

Зелёненький

Профиль
Группа: Участник
Сообщений: 235
Регистрация: 30.11.2004

Репутация: нет
Всего: 2

и кип и ася мне не нравятся
я пользуюсь Мирандой

--------------------

Nicholas_S

Дата 27.1.2007, 02:01 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 486
Регистрация: 12.10.2006
Где: Санкт-Петербург

Репутация: нет
Всего: 19

добавьте уже в опрос Миранду, пжлст smile

--------------------

...все в мире относительно

aktuba

Дата 27.1.2007, 11:29 (ссылка)

(нет голосов)

Загрузка ...

Смышленный

Профиль
Группа: Завсегдатай
Сообщений: 1915
Регистрация: 24.4.2006
Где: Планета Земля

Репутация: нет
Всего: 38

QIP...

--------------------

Sunvas

Дата 27.1.2007, 11:52 (ссылка)

(нет голосов)

Загрузка ...

Соль и сахар

Профиль
Группа: Участник
Сообщений: 3388
Регистрация: 12.3.2006
Где: Тосно

Репутация: 1
Всего: 89

Только Qip! Все остальное фтопку!

--------------------

Воспитывая детей по своему образу и подобию, родители почему-то надеются, что они будут лучше их.

Сумасшедший

Дата 27.1.2007, 18:03 (ссылка)

(нет голосов)

Загрузка ...

Чилавек-Каропка

Профиль
Группа: Завсегдатай
Сообщений: 1503
Регистрация: 15.8.2004
Где: Москва

Репутация: 1
Всего: 107

Цитата(Sunvas @ 27.1.2007, 11:52

)

Все остальное фтопку!

Начиная с продуктов одной известной фирмы smile

А миранда как-то странно сообщения отправляет - в каком-то непонятном наборе пакетов.

--------------------

Однажды ты спросишь, а я отвечу: "Время ожидания специалиста - 10 минут". Ты бросишь трубку, так и не узнав, что Ваш звонок очень важен для нас!

Guedda

Дата 2.2.2007, 19:31 (ссылка)

(нет голосов)

Загрузка ...

Подрывник

Профиль
Группа: Завсегдатай
Сообщений: 3137
Регистрация: 27.12.2005
Где: Ростов-на-Дону

Репутация: нет
Всего: 78

QIP - однозначно
куча скинов
отсутсвие рекламных баннеров
правильное отображение русских символов, когда в одном сообщении присутствуют и англ. слова
огромное количество статусов
анимированные смайлы + возможность ДОБАВЛЯТЬ (а не устанавливать) свои

--------------------

Ll 2

Nicholas_S

Дата 2.2.2007, 19:46 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 486
Регистрация: 12.10.2006
Где: Санкт-Петербург

Репутация: нет
Всего: 19

Квип - в топку. Я как-то посмотрел - ручек управления как у истребителя, показался менее юзабельным.
Миранда все нормально отправляет (не считая Миранды одного Сумасшедшего smile

)

--------------------

...все в мире относительно

Sunvas

Дата 2.2.2007, 19:50 (ссылка)

(нет голосов)

Загрузка ...

Соль и сахар

Профиль
Группа: Участник
Сообщений: 3388
Регистрация: 12.3.2006
Где: Тосно

Репутация: 1
Всего: 89

Nicholas_S, да ну... Серьезно? И что же тебя так напугало?

--------------------

Воспитывая детей по своему образу и подобию, родители почему-то надеются, что они будут лучше их.

Данкинг

Дата 2.2.2007, 19:51 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 1
Всего: 130

Вчера ещё выяснил, что на Квип сообщения не доходят нифига. smile

Классный клиент, млин. smile

Кстати, может ли считаться серьёзной программа, в которой есть смайлы вроде этого:

user posted image

Это сообщение отредактировал(а) Данкинг - 2.2.2007, 19:54

--------------------

There's nothing left but silent epitaphs.

Правила ведения Религиозных войн
	1. Уважайте собеседника 2. Собеседник != враг 3. Старайтесь воздерживаться от тем вида "Windows Rulez" или "Linux Rulez" С уважением, Smartov.

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Религиозные войны \| Следующая тема »