Tak się składa że muszę zmienić po uruchomieniu mojej aplikacji łącze NUMA do której została przypisana automatycznie przez system.
Mógłbym zawczasu to wymusić przez standardowe
start /NODE 3 /AFFINITY 1 Mój_Program.exe
ale koniecznie chcę to zrobić już po uruchomieniu swojego programu. Innymi słowy chcę aby użytkownik mógł sam ustawić na jakim łączu ma pracować program bez zabawy w Task Manager. Podobny problem już pojawił się na oficjalnym forum microsoftu i okazało się że trzeba użyć nieudokumentowanej (przez microsoft) funkcji NtSetProcessInformation.
Naszczęście funkcja została udokumentowana przez ludzi z ReactOS
https://undocumented.ntinternals.net/index.html?page=UserMode%2FUndocumented%20Functions%2FNT%20Objects%2FProcess%2FNtSetInformationProcess.html
Teraz próbuję to samo zrobić w Delphi 7 co ten jegomość w C++:
I found an interesting API which is essentally what I want.
The goal here was to do the same thing as SetProcessAffinityMask() with groups. As it turns out, there is such a function, but it is undocumented.
I discovered that NtSetProcessInformation() will set both the group and affinity mask for an already running process. It's API is something like this:
GROUP_AFFINITY group_affinity;
group_affinity.group = 1; // Second group of 64 processors
group_affinity.mask = 0x0000FFFF00000000;
NtSetProcessInformation (hProcess, 0x15, &group_affinity, group_affinity_size)
It works very well and is the same API that TaskManager uses to change the affinity group and mask of processes.
Of course, since it is undocumented, it is subject to change, so it is best not to employ this in retail software. I am using it only to run performance tests in our lab, so no big problem here.
Importowanie funkcji z ntdll.dll oraz definiowanie rekordu
function NtSetInformationProcess(HProcess: CARDINAL; ProcessInformationClass: BYTE; ProcessInformation: POINTER; ProcessInformationLength: CARDINAL): CARDINAL; stdcall; external 'ntdll.dll' name 'NtSetInformationProcess';
type
TGROUP_AFFINITY = record
mask : cardinal;
group : cardinal;
end;
kod właściwy na szybkensa dla celów testowych w FormCreate:
procedure TForm1.FormCreate(Sender: TObject);
var group_affinity:TGROUP_AFFINITY;
HRES: HRESULT;
begin
// do celów testowych chcę przypisać proces do pierwszego rdzenia ,pierwszej grupy
group_affinity.group:= 0; //grupa pierwsza
group_affinity.mask:= 1; //pierwszy rdzeń
HRES:=NtSetInformationProcess(GetCurrentProcess(), $15 , @group_affinity, SizeOf(group_affinity));
if HRES = S_OK then showmessage('OK')
else showmessage('ERROR');
end;
No i pupa na razie bo zawsze dostaje informacje ERROR po wykonaniu tej funkcji. Obstawiam że coś skopałem z danymi wejściowymi do funkcji (inna struktura wymagana). Pewnie wymagane jest coś takiego https://docs.microsoft.com/en-us/windows/desktop/api/winnt/ns-winnt-_group_affinity
Jest tu może jakaś osoba ,która już wcześniej korzystała z tej egzotycznej funkcji?