Ring0 или Драйвер?, Как проще.
Изменить значение по адресу в памяти.
Прочитать значение по адресу
ID Процесса
Как отследить с какими парамами запущен процесс
Охлаждение процессора
Password, Проверить сетевой пароль
CD/DVD
Работа с DLL!?, Как из DLL візвать іункцию из EXE?
Добавление в меню
Добавление пункта к меню винды
Количество экземпляров приложения, Количество экземпляров приложения
Драйвер для устройства, подключонного к порту, ПРИНТОРА
CreateWindow,ClassName, из dll
С НОВЫМ ГОДОМ!!!, Праздник все-таки ;-)
поиск файла, Поиск файла в директории
Как открыть "Свойства системы", Как открыть "Свойства системы"
TADOQuery, Как объявить параметры в TADOQuery?
Сообственое PopupMenu вместо Windows'кого
чтение FAT!, чтение секторов!
GetProcessIOCounters
Запуск моего приложения!!, Как запустить приложение с Аутлуком?
Как Вы относитесь к курящим девушкам?
Квота на запускаемы процесс
Память процесса, как определить
toolbars
Серийный номер HDD, как узнать серийный номер hdd
Работа с CopyFileEx
Мигающая палочка перед буквой, в двух словах трудно объяснить ... ...
Screensaver
Как определить работает процесс с нетом
Как на WinAPI поменять шрифт?
Как запустить из АПИ досовскую команду?, Как запустить из АПИ досовскую команду?
Горячие клавиши отловить, наиболее красиво
User name, Как узнать имя пользователя
Обём диска
Вопрос по keybd_event (эмуляция нажатия клавиши)
MessageBox поверх всех окон, ???
Отследить время изменения файла
bitblt, наложение двух изображений
Лоток CD-ROM, Где же он??? - Как определить?
autohide taskbar, из делфи включить насильственно autohide
Траблы с NamedPipes
Убить приложение
Открытие файла из формы Delphi, Как?
Работа с приложениями, активность и неактивность приложений
Локальный перехват WinApi
Uninstaller
Thumbnail (Эскизы)
Priveleged Instruction, Не получается в WinXP
Memo для очень больших файлов, У кого-нибудь есть наработки?
Мониторинг процессов
Кнопка выхода, как можно на WinAPI написать выход?
Построение дерева реестра, Как оптимизировать алгоритм
Убрать информацию, из панели задач
Теряются биты при обмене через СОМ-порт
аппаратная конфигурация, как узнать имя сетевой и видеокарты
Как ждать заверщение другой программы?, Связь приложений.
Отследить изменения в реестре
Запрет на открытие папок, Как реализовать для заускаемой проги
Точка или запятая? как определить?
Cоставные индексы, Поиск по составным индексам
Поиск всех одинаковых файлов на диске
Управлеине фокусом ввода
Движущийся заголовок окна???
Определение handle окна чужой программы., Условия жуткие...
Installer SDK в Delphi
Как Вы относитесь к курящим девушкам?
Неработает dll, Снова я о хуках
Как создать свой файл с помощью FileCreate
|
Платные хостинги
Раскрутка сайта
Книги по программированию
GetProcessIOCounters
- Здравствуйте, уважаемые. Возникли проблемы с использованием функции GetProcesIOCounters - в чем дело не поймуКод typeIO_COUNTERS = ^_IO_COUNTERS;_IO_COUNTERS = recordReadOperationCount: int64;WriteOperationCount: int64;OtherOperationCount: int64;ReadTransferCount: int64;WriteTransferCount: int64;OtherTransferCount: int64;End;function GetProcessIoCounters(hProcess: THandle; PIO_COUNTERS:pointer):Boolean; stdcall; external 'kernel32.dll';procedure TForm1.Button1Click(Sender: TObject);VarPIDArray: array [0..1023] of DWORD;cb: DWORD;I: Integer;ProcCount: Integer;hProcess: THandle;M : IO_COUNTERS;beginEnumProcesses(@PIDArray, SizeOf(PIDArray), cb);ProcCount := cb div SizeOf(DWORD);getMem( m, sizeof(_IO_COUNTERS));for I := 0 to ProcCount - 1 dobegin hProcess := OpenProcess(PROCESS_QUERY_INFORMATION or PROCESS_VM_READ, False, PIDArray[I]);if not(GetProcessIoCounters( hProcess, M)) then Halt;End;end;highlightSyntax('delphihZDI1Y','delphi'); Это сообщение отредактировал Girder - 15.12.2004, 13:15
- типо так... Код type TIO_COUNTERS = record ReadOperationCount: int64; WriteOperationCount: int64; OtherOperationCount: int64; ReadTransferCount: int64; WriteTransferCount: int64; OtherTransferCount: int64; end;function GetProcessIoCounters(hProcess:Cardinal; var IoCounters:TIO_COUNTERS):Bool; stdcall; external 'kernel32.dll';procedure TForm1.Button1Click(Sender: TObject);var i:TIO_COUNTERS; OP:Cardinal;begin OP:=OpenProcess(PROCESS_QUERY_INFORMATION,false,GetCurrentProcessID); if OP<>0 then begin if GetProcessIoCounters(OP,i) then ShowMessage('Все Ok! (OTC: '+IntToStr(i.OtherTransferCount)+')'); CloseHandle(OP); end;end;highlightSyntax('delphiNzJmMW','delphi');Удачи.
Интернет казино
Онлайн игры
Увеличение члена
Купить DVD
|
