Обсуждение программирования на Delphi в конференции ru.delphi

Здравствуй, Vitaliy Leschenko.








type
function NtQuerySystemInformation(
SystemInformationClass:integer;
SystemInformation: pointer;
SystemInformationLength: integer;
var ReturnLength: integer
): word; stdcall; external 'ntdll.dll';


PThreadInformation = ^TThreadInformation;
TThreadInformation = record
ThreadKernelTime: LARGE_INTEGER;
ThreadUserTime: LARGE_INTEGER;
ThreadCreateTime: LARGE_INTEGER;
WaitTime:DWORD;
StartEIP:Pointer;
ClientId:TClientID;
DynamicPriority:DWORD;
BasePriority:DWORD;
nSwitches:DWORD;
State:integer;
WaitReason: integer;
end;

PProcessInformation = ^TProcessInformation;
TProcessInformation = record
NextOffset: cardinal;
ThreadCount: cardinal;
unk2, unk3, unk4, unk5, unk6, unk7: cardinal;
CreateTime: TFileTime;
UserTime: TFileTime;
KernelTime: TFileTime;
unk14: cardinal;
pModuleName: PWideChar;
BasePriority: cardinal;
ProcessID: cardinal;
InheritedFromUniqueProcessID: cardinal;
HandleCount: cardinal;
unk20, unk21: cardinal;
PeekVirtualSize: cardinal;
VirtualSize: cardinal;
PageFaultCountPerSec: cardinal;
PeakWorkingSetSize: cardinal;
WorkingSetSize: cardinal;
PeekPagedPoolUsage: cardinal;
PagedPoolUsage: cardinal;
PeekNonPagedPoolUsage: cardinal;
NonPagedPoolUsage: cardinal;
PagefileUsage: cardinal;
PeakPagefileUsage: cardinal;
// PrivatePageCount: cardinal;
ReadOperationCount: TLrDouble; //Double;
WriteOperationCount: TLrDouble;
OtherOperationCount: TLrDouble;
ReadTransferCount: TLrDouble;
WriteTransferCount: TLrDouble;
OtherTransferCount: TLrDouble;
ThreadInfos: array [0..0] of TThreadInformation;
end;

var
TestSize: word = 30000;

procedure GetNtProcess(pl:TStrings);
var
i,ProcSize:integer;
proc:PProcessInformation;
p:pointer;
s:string;
begin

For i:=pl.Count-1 downto 0 do
begin

pl.Objects[i].Free;
pl.Delete(i);
end;

p:=AllocMem(TestSize);
proc:=p;
NtQuerySystemInformation(5, proc, TestSize,i);
FreeMem(p,TestSize);
ProcSize:=i*2;
begin
i:=1;
p:=AllocMem(ProcSize);
proc:=p;
NtQuerySystemInformation(5, proc, ProcSize,i);
try
try
while true do
begin
with proc^ do
begin
s:=pModuleName;
s:=s+TabChar+IntToStr(ProcessID);
...
s:=s+TabChar+LrIntToKB(PeakPagefileUsage);
end;
pl.Add(s);

if proc^.NextOffset=0 then break;
proc:=pointer(cardinal(proc)+proc^.NextOffset);
end;
except
ShowMessage('Error GetNtProcess');
Application.HandleException(Application);
end;
finally
FreeMem(p, ProcSize);
end;
end;
end;

Roman Kanygin
* Origin: Altair Station (2:5030/809)


Здpавствуйте, Roman Kanygin
{

Воскpесенье Октябpь 09 2005 04:33, Roman Kanygin писал Vitaliy Leschenko:
















Спасибо. После испpвления мелких ошибок это даже pаботает.

} Виталий Лещенко aka 2:4521/13.34 aka 2:4521/13.24 aka Matrix
email: vitaliy_leschenko [@] tut.by

* Origin: 001, 010, 011, 100, 101 - вышел зайчик погулять (2:4521/13.34)


Hello Slava.

Sat Oct 08 2005 10:06, you wrote to Roman Kanygin:




Уже года 4 как докyментиpован.

Roman

* Origin: N(x)thing (2:454/5.85 [@] Roman)


Здравствуй, Vitaliy Leschenko.




Каких именно ошибок?

Roman Kanygin
* Origin: Altair Station (2:5030/809)


Здравствуй, Slava Antonov.








Приведенная функция разве не решает поставленную задачу?




К чему ты это? Hе нужно передергивать. Кстати, если ты стал говорить такие странные вещи, то ответь, неужели ты считаешь, что все функции с префиксами Nt не относятся к API?

Roman Kanygin
* Origin: Altair Station (2:5030/809)


Привет, All!

Пытаюсь сменить видеорежим:

procedure TmrmMain.SetDisplayMode(ModeIndex: Integer);
var
DeviceMode : TDevMode;
begin
with DeviceMode do
begin
dmSize := SizeOf(DeviceMode);
dmBitsPerPel := 32;
dmPelsWidth := VideoModes[ModeIndex].Width;
dmPelsHeight := VideoModes[ModeIndex].Height;
dmFields := DM_BITSPERPEL or DM_PELSWIDTH or DM_PELSHEIGHT;
dmDisplayFrequency := 75; //!
end;
ChangeDisplaySettings(DeviceMode,CDS_FULLSCREEN)
end;

Как видно, dmDisplayFrequency присваивается 75.
Hо почему-то при ChangeDisplaySettings получается 60.
Монитор 75 Гц держит, но почему выходит 60?!

Александр [@] ICQ # 6501526

* Origin: Кто pано встает, тот pано помpет (2:5058/56.39)




Хаю ду ю ду Alexander Timonov?

Смотрю и вижу, как ты печатаешь умные вещи и дай-ка, думаю,
тоже что-нибудь напечатаю:





Флаг забыл указать

function SetFullscreenMode(W: integer; H: integer): Boolean;
var DeviceMode: TDevMode;
begin
with DeviceMode do
begin
dmSize := SizeOf(DeviceMode);
dmBitsPerPel := 32;
dmPelsWidth := w;
dmPelsHeight := h;
dmDisplayFrequency := 85;
dmFields := DM_BITSPERPEL or DM_PELSWIDTH or DM_PELSHEIGHT { or DM_DISPLAYFLAGS} or DM_DISPLAYFREQUENCY;
result := False;

Result := ChangeDisplaySettings(DeviceMode, CDS_FULLSCREEN) = DISP_CHANGE_SUCCESSFUL;
end;
end;

--
Вечность торопит...
Я и мои соседи слушаем: 25 Petey Pablo - Need For Speed
Alexander Tomilov E-mail: asteroid (at) perm (dot) raid (dot) ru
Форум не обо всем, но многом: sforum.hut1.ru/forum/

* Origin: Asteroid Software (2:5020/400)


Приветствую, All!

Так, завязываем этот флейм. Как-никак, функции ToolHelp документированы
_гораздо более длительное время,_ чем NtDll, которые отсутствуют на т.н.
Win32-compatible платформах.
Тем более, для получения простого списка PID'ов имхо проще использовать
ToolHelp.
Все возмущения - мне нетмейлом (или между собой, как хотите ;)

-- С уважением, Andrew O. Shadoura

AKAs: 2:450/143.25, 2:450/202.25

* Origin: Is AVR inside? (2:450/143.25)




Уважаемые, подскахите!!!

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

Заранее благодарен всем за оказанное содействие!!!


* Origin: SBOR node, Sosnovy Bor, Russia (2:5020/400)




Извиняюсь, ошибся!!!


* Origin: SBOR node, Sosnovy Bor, Russia (2:5020/400)