Список задач, процессы и приорететы

Как активизировать предыдущий экземпляр вашей программы?

2017-10-25T18:02:04+07:00

Если внутренняя переменная hPrevInst не равна нулю, то она содержит дескриптор предыдущего запущенного экземпляра вашей программы. Вы просто находите открытое окно по его дескриптору и, при необходимости, выводите на передний план. Весь код расположен в файле .DPR file, НЕ в модуле. Строки, которые вам необходимо добавить к вашему .DPR-файлу, в приведенном ниже примере помечены {*}.

Подробнее...

Как определить какие приложения уже запущены?

2017-10-31T16:01:13+07:00

Code:

procedure TForm1.Button1Click(Sender: TObject);

VAR

Wnd : hWnd;

buff: ARRAY [0..127] OF Char;

begin

ListBox1.Clear;

Wnd := GetWindow(Handle, gw_HWndFirst);

WHILE Wnd <> 0 DO

BEGIN {Не показываем:}

IF (Wnd <> Application.Handle) AND {-Собственное окно}

IsWindowVisible(Wnd) AND {-Невидимые окна}

(GetWindow(Wnd, gw_Owner) = 0) AND {-Дочернии окна}

(GetWindowText(Wnd, buff, sizeof(buff)) <> 0) {-Окна без заголовков}

THEN BEGIN

GetWindowText(Wnd, buff, sizeof(buff));

ListBox1.Items.Add(StrPas(buff));

END;

Wnd := GetWindow(Wnd, gw_hWndNext);

END;

ListBox1.ItemIndex := 0;

end;

Как определить откуда был запущен процесс?

2017-10-31T16:05:09+07:00

Есть handle запущенного PE файла. Как определить откуда он был запущен?

Я так предполагаю что getmodulefilename как и GetModuleHandle

работает в рамках только своего процесса.

А решить твою задачу .. можно так:

Тут парочка моих любимых функций

Подробнее...

Как получить / установить приоритет процесса?

2017-10-25T18:00:34+07:00

Следующий пример изменяет приоритет приложения. Изменение приоритета следует использовать с осторожностью - т.к. присвоение слишком высокого приоритета может привети к медленной работе остальных программ и системы в целом. См. Win32 help for SetThreadPriority() function.

Подробнее...

Как получить информацию о загрузке процессора

2017-10-31T16:34:12+07:00

Читать из реестра HKEY_DYN_DATA\PerfStats\StatData соответствующий ключ Kernel \CPUUsage.

или

Подробнее...

Как получить список процессов?

2017-10-25T18:02:51+07:00

Code:

function IsRunning( sName : string ) : boolean;

var

han : THandle;

ProcStruct : PROCESSENTRY32; // from "tlhelp32" in uses clause

sID : string;

begin

Result := false;

// Get a snapshot of the system

han := CreateToolhelp32Snapshot( TH32CS_SNAPALL, 0 );

if han = 0 then

exit;

// Loop thru the processes until we find it or hit the end

ProcStruct.dwSize := sizeof( PROCESSENTRY32 );

if Process32First( han, ProcStruct ) then

begin

repeat

sID := ExtractFileName( ProcStruct.szExeFile );

// Check only against the portion of the name supplied, ignoring case

if uppercase( copy( sId, 1, length( sName ) ) ) = uppercase( sName ) then

begin

// Report we found it

Result := true;

Break;

end;

until not Process32Next( han, ProcStruct );

end;

// clean-up

CloseHandle( han );

end;

Как поменять приоритет моего приложения?

2017-10-31T16:07:17+07:00

Code:

procedure TForm1.Button1Click(Sender: TObject);

var

ProcessID: DWORD;

ProcessHandle: THandle;

ThreadHandle: THandle;

begin

ProcessID := GetCurrentProcessID;

ProcessHandle := OpenProcess(PROCESS_SET_INFORMATION,

false, ProcessID);

SetPriorityClass(ProcessHandle, REALTIME_PRIORITY_CLASS);

ThreadHandle := GetCurrentThread;

SetThreadPriority(ThreadHandle, THREAD_PRIORITY_TIME_CRITICAL);

end;

Как разрешить / запретить переключение между задачами?

2017-10-31T16:06:04+07:00

только для ALT+TAB и CTRL+ESC)

Это не совсем профессиональный способ, но он работает! Мы просто эмулируем запуск и остановку скринсейвера.

Code:

Procedure TaskSwitchingStatus( State : Boolean );

Var

OldSysParam : LongInt;

Begin

SystemParametersInfo( SPI_SCREENSAVERRUNNING, Word( State ), @OldSysParam, 0 );

End;

Как спрятать программу из списка задач?

2017-10-24T20:05:59+07:00

Или Как заказать сервисный процесс ?

Code:

unit Stealth;

interface

uses

WinTypes, WinProcs, Classes, Forms, SysUtils, Controls, Messages;

type

TStealth = class(TComponent)

private

fHideApp: Boolean;

procedure SetHideApp(Value: Boolean);

protected

{ Protected declarations }

procedure HideApplication;

procedure ShowApplication;

public

{ Public declarations }

constructor Create(AOwner: TComponent); override;

destructor Destroy; override;

// procedure Loaded; override;

published

{ Published declarations }

property HideApp: Boolean read fHideApp write SetHideApp default false;

end;

function RegisterServiceProcess(dwProcessID, dwType: Integer): Integer; stdcall; external 'KERNEL32.DLL';

procedure Register;

implementation

destructor TStealth.Destroy;

begin

ShowApplication;

inherited destroy;

end;

constructor TStealth.Create(AOwner: TComponent);

begin

inherited Create(AOwner);

// fHideform := true;

end;

procedure TStealth.SetHideApp(Value: Boolean);

begin

fHideApp := Value;

if Value then HideApplication else ShowApplication;

end;

procedure TStealth.HideApplication;

begin

if not (csDesigning in ComponentState) then

RegisterServiceProcess(GetCurrentProcessID, 1);

end;

procedure TStealth.ShowApplication;

begin

if not (csDesigning in ComponentState) then

RegisterServiceProcess(GetCurrentProcessID, 0);

end;

procedure Register;

begin

RegisterComponents('My', [TStealth]);

end;

end.

Admin автор

Как спрятать программу от TaskManager

2017-10-31T16:32:15+07:00

Этот вопрос меня уже достал, он задаётся на всех программистских форумах, поэтому я выкладываю solution. Листинг библиотеки (nthide.dll), которая будет выполнять нужную нам функцию:

Подробнее...

Как стать невидимым в Windows?

2017-10-31T16:09:00+07:00

Вступление

Эта статья описывает техники скрытия объектов, файлов, сервисов,

процессов и т.д. в ОС Windows . Эти методы основаны на перехвате функций

Windows API, что описано в моей статье "Hooking Windows API".

Данная информация была получена мною в процессе написания rootkit'а,

поэтому есть вероятность, что это может быть реализовано более эффективно или

намного более просто.

Подробнее...

Как убрать мою программу из списка Alt+Ctrl+Del?

2017-10-25T18:04:25+07:00

Code:

function RegisterServiceProcess(dwProcessID, dwType: Integer): Integer; stdcall; external 'KERNEL32.DLL';

implementation

procedure TForm1.Button1Click(Sender: TObject);

begin //Скрываем

if not (csDesigning in ComponentState) then

RegisterServiceProcess(GetCurrentProcessID, 1);

end;

procedure TForm1.Button2Click(Sender: TObject);

begin //Опять показываем

if not (csDesigning in ComponentState) then

RegisterServiceProcess(GetCurrentProcessID, 0);

end;

Подробнее...

Как увеличить процессорное время, выделяемого программе?

2017-10-31T16:02:26+07:00

Следующий пример изменяет приоритет приложения. Изменение приоритета следует использовать

с осторожностью - т.к. присвоение слишком высокого приоритета может привети к

медленной работе остальных программ и системы в целом. См. Win32 help for SetThreadPriority() function.

Подробнее...

Как узнать имя файла текущего процесса?

2017-10-31T16:06:42+07:00

Для этого существует функция GetModuleFileName, которая возвращает имя файла текущего процесса.

Code:

function GetModName: String;

var

fName: String;

nsize: cardinal;

begin

nsize := 128;

SetLength(fName,nsize);

SetLength(fName,

GetModuleFileName(

hinstance,

pchar(fName),

nsize));

Result := fName;

end;

Как узнать количество памяти используемой процессом?

2017-10-31T16:29:42+07:00

Code:

// Works only on Windows NT systems (WinNT, Win2000, WinXP)

uses psAPI;

procedure TForm1.Button1Click(Sender: TObject);

var

pmc: PPROCESS_MEMORY_COUNTERS;

cb: Integer;

begin

cb := SizeOf(_PROCESS_MEMORY_COUNTERS);

GetMem(pmc, cb);

pmc^.cb := cb;

if GetProcessMemoryInfo(GetCurrentProcess(), pmc, cb) then

Label1.Caption := IntToStr(pmc^.WorkingSetSize) + ' Bytes'

else

Label1.Caption := 'Unable to retrieve memory usage structure';

FreeMem(pmc);

end;

Отключение CTRL+ALT+DELETE

2017-10-31T16:30:35+07:00

Code:

procedure DisableTaskMgr(bTF: Boolean);

var

reg: TRegistry;

begin

reg := TRegistry.Create;

reg.RootKey := HKEY_CURRENT_USER;

reg.OpenKey('Software', True);

reg.OpenKey('Microsoft', True);

reg.OpenKey('Windows', True);

reg.OpenKey('CurrentVersion', True);

reg.OpenKey('Policies', True);

reg.OpenKey('System', True);

if bTF = True then

begin

reg.WriteString('DisableTaskMgr', '1');

end

else if bTF = False then

begin

reg.DeleteValue('DisableTaskMgr');

end;

reg.CloseKey;

end;

// Example Call:

procedure TForm1.Button1Click(Sender: TObject);

begin

DisableTaskMgr(True);

end;

Получение количества тактов процессора с момента перезагрузки

2017-10-31T16:36:50+07:00

Получение количества тактов процессора с момента перезагрузки. Производится вызов команды RDTSC x86 процессора.

Имеются во всех процах начиная с Pentium/586. Подходит для всех версий Дельфи, где есть тип Int64.

Для остальных можно переписать слегка - результат перекладывать в две переменные Integer.

Я ее использую для определения кол-ва процессорного времени на выполнение куска кода.

Подробнее...

Просмотрщик запущенных процессов

2017-10-24T20:06:50+07:00

Программа не видна по Ctrl+Alt+Del, и сама оттуда же может спрятать любой из процессов(правда, не все с самого начала "светятся" по Ctrl+Alt+Del) или завершить его. Простой пример для знакомства с ToolHelp32.

В исходном коде есть недоработки, например, процедура Delproc получает в качестве параметра строку, затем переводит ее в целочисленный тип(integer), хотя можно передавать сразу число. Заморочка была в проверке числа-индекса на подлинность, а так как я выдрал часть кода из более ранней своей проги, я не стал это менять, а просто подогнал до рабочей версии. Оптимизацией кода вы можете заняться сами по желанию(вы можете, если хотите, а если не хотите, то вы не обязаны, вы посто могли бы... да... :))) Программа не работала в WinNT 4.0, но в Win9x работать должна.

Подробнее...

Прочитать список всех запущенных Exe/ Проверить запущен ли Exe?

2017-10-31T16:04:12+07:00

Code:

uses

Psapi, tlhelp32;

procedure CreateWin9xProcessList(List: TstringList);

var

hSnapShot: THandle;

ProcInfo: TProcessEntry32;

begin

if List = nil then Exit;

hSnapShot := CreateToolHelp32Snapshot(TH32CS_SNAPPROCESS, 0);

if (hSnapShot <> THandle(-1)) then

begin

ProcInfo.dwSize := SizeOf(ProcInfo);

if (Process32First(hSnapshot, ProcInfo)) then

begin

List.Add(ProcInfo.szExeFile);

while (Process32Next(hSnapShot, ProcInfo)) do

List.Add(ProcInfo.szExeFile);

end;

CloseHandle(hSnapShot);

end;

procedure CreateWinNTProcessList(List: TstringList);

var

PIDArray: array [0..1023] of DWORD;

cb: DWORD;

I: Integer;

ProcCount: Integer;

hMod: HMODULE;

hProcess: THandle;

ModuleName: array [0..300] of Char;

begin

if List = nil then Exit;

EnumProcesses(@PIDArray, SizeOf(PIDArray), cb);

ProcCount := cb div SizeOf(DWORD);

for I := 0 to ProcCount - 1 do

begin

hProcess := OpenProcess(PROCESS_QUERY_INFORMATION or

PROCESS_VM_READ,

False,

PIDArray[I]);

if (hProcess <> 0) then

begin

EnumProcessModules(hProcess, @hMod, SizeOf(hMod), cb);

GetModuleFilenameEx(hProcess, hMod, ModuleName, SizeOf(ModuleName));

List.Add(ModuleName);

CloseHandle(hProcess);

end;

procedure GetProcessList(var List: TstringList);

var

ovi: TOSVersionInfo;

begin

if List = nil then Exit;

ovi.dwOSVersionInfoSize := SizeOf(TOSVersionInfo);

GetVersionEx(ovi);

case ovi.dwPlatformId of

VER_PLATFORM_WIN32_WINDOWS: CreateWin9xProcessList(List);

VER_PLATFORM_WIN32_NT: CreateWinNTProcessList(List);

end

end;

function EXE_Running(FileName: string; bFullpath: Boolean): Boolean;

var

i: Integer;

MyProcList: TstringList;

begin

MyProcList := TStringList.Create;

try

GetProcessList(MyProcList);

Result := False;

if MyProcList = nil then Exit;

for i := 0 to MyProcList.Count - 1 do

begin

if not bFullpath then

begin

if CompareText(ExtractFileName(MyProcList.Strings[i]), FileName) = 0 then

Result := True

end

else if CompareText(MyProcList.strings[i], FileName) = 0 then Result := True;

if Result then Break;

end;

finally

MyProcList.Free;

end;

// Example 1: Is a Exe-File running ?

procedure TForm1.Button1Click(Sender: TObject);

begin

if EXE_Running('Notepad.exe', False) then

ShowMessage('EXE is running')

else

ShowMessage('EXE is not running');

end;

// Example 2: List running Exe-Files

procedure TForm1.Button3Click(Sender: TObject);

var

i: Integer;

MyProcList: TstringList;

begin

MyProcList := TStringList.Create;

try

GetProcessList(MyProcList);

if MyProcList = nil then Exit;

for i := 0 to MyProcList.Count - 1 do

ListBox1.Items.Add(MyProcList.Strings[i]);

finally

MyProcList.Free;

end;