Może ktoś wie czemu niemożna zmienić priotetu programu na powyżej normalnego oto polecenie które wpisałem
Uses ShellAPI, TLHELP32, ...
var
PHandle, FHandle: THandle;
Process:TProcessEntry32;
Done, Next: Boolean;
EXE : String; // ścieżka programu
I : Integer;
begin
for I := 0 to ListBox1.Count - 1 do
try
EXE := 'gta5.exe'
Statictext7.Caption := 'Trwa zmienianie szybkości : ' + EXE + ' ...';
Statictext7.Refresh;
Sleep(1500);
FHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS,0);
Process.dwSize := Sizeof(Process);
Next := Process32First(FHandle,Process);
while Next do
begin{ jesli sciezka dostepu sie zgadza }
if AnsiLowerCase(Process.szExeFile) = AnsiLowerCase(EXE) then
begin
PHandle:=OpenProcess(PROCESS_TERMINATE, False,
Process.th32ProcessID);
{ to spróbujemy zmienic wielkosci CPU }
Done := SetPriorityClass(PHandle, 4);
if not Done then showmessage('Błąd');
end;
Next := Process32Next(FHandle,Process);
end;
CloseHandle(FHandle);
Statictext7.Caption := 'Zakończono!';
end;
end;