Цитата:
|
Сообщение от lmikle
А вообще, учись думать сам. Этот вопрос выходит за рамки уровня "новичек", так что тут придется думать самому.
|
И что? Разве нельзя было нормально сказать человеку?
to Неподарок:
Код:
Uses Tlhelp32;
...
function GetProcess:TStringList;
const
PROCESS_TERMINATE=$0001;
var
Co:BOOL;
FS:THandle;
FP:TProcessEntry32;
begin
result:=TStringList.Create;
FS:=CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS,0);
FP.dwSize:=Sizeof(FP);
Co:=Process32First(FS,FP);
while integer(Co) <> 0 do
begin
result.Add(FP.szExeFile);
Co:=Process32Next(FS,FP);
end;
CloseHandle(FS);
end;
Использование: memo1.Lines:=GetProcess;