Zmiana szybkości programu ?

0

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;

0

niewiem jak jest w windowsie, ale w linuxie tylko administrator może podzieść priorytet procesu. może tu jest podobnie?

0

No wiesz ja jestem Adminem w Windowssie mam Windows XP Professional

1 użytkowników online, w tym zalogowanych: 0, gości: 1