Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Jason
397 / 397 / 54
Регистрация: 25.12.2011
Сообщений: 903
1

Узнать, какие процессы используют интернет

05.03.2015, 04:42. Просмотров 280. Ответов 0
Метки нет (Все метки)

Как узнать какие приложения используют интернет, узнаю так:
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
function RunDosInMemo(DosApp: String; CommandLine: String): String;
 const
    ReadBuffer = 2400;
 var
  Security            : TSecurityAttributes;
  ReadPipe,WritePipe  : THandle;
  start               : TStartUpInfo;
  ProcessInformation  : TProcessInformation;
  Buffer              : PAnsichar;
  BytesRead           : DWord;
  Apprunning          : DWord;
  Fil                 : string;
  Return              : String;
 begin
  Return := '';
  With Security do begin
   nlength              := SizeOf(TSecurityAttributes);
   binherithandle       := true;
   lpsecuritydescriptor := nil;
  end;
  if Createpipe (ReadPipe, WritePipe,
                 @Security, 0) then begin
   Buffer  := AllocMem(ReadBuffer + 1);
   FillChar(Start,Sizeof(Start),#0);
   start.cb          := SizeOf(start);
   start.hStdOutput  := WritePipe;
   start.hStdInput   := ReadPipe;
   start.dwFlags     := STARTF_USESTDHANDLES +
                        STARTF_USESHOWWINDOW;
   start.wShowWindow := SW_HIDE;
        Fil := DosApp;
        Fil := Fil + '.exe ' + CommandLine;
   if CreateProcess(nil,
          PChar(Fil),
          @Security,
          @Security,
          true,
          NORMAL_PRIORITY_CLASS,
          nil,
          nil,
          start,
          ProcessInformation)
   then
   begin
    repeat
     Apprunning := WaitForSingleObject
                  (ProcessInformation.hProcess,100);
 
    until (Apprunning <> WAIT_TIMEOUT);
     Repeat
       BytesRead := 0;
       ReadFile(ReadPipe,Buffer[0],
               ReadBuffer,BytesRead,nil);
       Buffer[BytesRead]:= #0;
       OemToAnsi(Buffer,Buffer);
       Return := Return + String(Buffer);
     until (BytesRead < ReadBuffer);
  end;
  FreeMem(Buffer);
  CloseHandle(ProcessInformation.hProcess);
  CloseHandle(ProcessInformation.hThread);
  CloseHandle(ReadPipe);
  CloseHandle(WritePipe);
  end;
  Result := Return;
end;
 
 
//Вызов
TEXT := RunDosInMemo('netstat', '-o');
Работает, но если запущен хром и еще пару приложений которые используют интернет она выполняет очень долго, иногда вообще зависает. Есть ли какие нибудь другие способы это узнать?

Добавлено через 13 часов 1 минуту
Проблему решил так:
Delphi
1
TEXT := RunDosInMemo('netstat', '-n -o');
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
05.03.2015, 04:42
Ответы с готовыми решениями:

Как узнать какие программы в автозапуске?
На делфи.

Как узнать какие есть функции в библиотеке
Например, если я хочу купить библиотеку у какого нибудь продавца, он говорит...

Программно узнать какие есть в определённой папке файлы и если есть лишние удалить их
Доброго времени суток! Помогите пожалуйста нубу реализовать то что напишу ниже...

Как показывать на форме какие упражнения были сделаны,а какие пропущены?
На каждой форме (пусть их будет 5 штук)располагается pagecontrol, в котором по...

Какие операторы являются правильными, какие − нет и почему?
Дано описание переменных: var x,y:^integer; ...

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
05.03.2015, 04:42

Какие компоненты являются визуальными, а какие - невизуальными?
Можете объяснить какие компоненты называются визуальными и привести несколько...

Хочется узнать все процессы, которые в данный момент используют директорию
хочется узнать все процессы которые в данный момент используют директорию,...

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


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru