Kako najjednostavnije pokazati u npr. ListBox-u sve trenutne procese koji rade.
(One u taskmanageru) . Molim vas pomozite
(One u taskmanageru) . Molim vas pomozite
Prikaz svih trenutnih procesa
Zaključano
Zakačeno
http://www.softver.org.mk/stara/index2.php?vidi=proekti/mk_ps.php
Ne secam se samo dali je to BCB ili Delphi, u svakom slucaju to je to sto trazis, samo analiziraj source.
Ne secam se samo dali je to BCB ili Delphi, u svakom slucaju to je to sto trazis, samo analiziraj source.
Potpis
People who think they know everything tend to irritate those of us who do.
Riste, ne rade linkovi za download na onoj stranici... ali zato rade na osnovnoj :)
http://www.softver.org.mk/star...x2.php?vidi=download/index.php
jos krace:
bin: http://www.softver.org.mk/stara/download/ps-1.0-bin.zip
src: http://www.softver.org.mk/stara/download/ps-1.0-src.zip
http://www.softver.org.mk/star...x2.php?vidi=download/index.php
jos krace:
bin: http://www.softver.org.mk/stara/download/ps-1.0-bin.zip
src: http://www.softver.org.mk/stara/download/ps-1.0-src.zip
U JCL biblioteci imas unit jclSysInfo i u njemu interesantne funkcije za to sto ti treba.
http://sourceforge.net/projects/jcl/
http://sourceforge.net/projects/jcl/
Hvala puno!
Code:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
const
TH32CS_SNAPPROCESS = $00000002;
type
PPROCESSENTRY32 = ^TPROCESSENTRY32;
TPROCESSENTRY32 = packed record
dwSize,
cntUsage,
th32ProcessID,
th32DefaultHeapID,
th32ModuleID,
cntThreads,
th32ParentProcessID: DWORD;
pcPriClassBase: LongInt;
dwFlags: DWORD;
szExeFile: array[0..MAX_PATH-1] of char;
end;
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
function CreateToolhelp32Snapshot(dwFlags, th32ProcessID: DWORD): THandle; stdcall; external 'kernel32.dll' name 'CreateToolhelp32Snapshot';
function Process32First(hSnapshot: THandle; const lppe: TPROCESSENTRY32): boolean; stdcall;external 'kernel32.dll' name 'Process32First';
function Process32Next(hSnapshot: THandle; const lppe: TPROCESSENTRY32): boolean; stdcall;external 'kernel32.dll' name 'Process32Next';
implementation
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
var
snap: THandle;
tmp: string;
me: TPROCESSENTRY32;
r: integer;
begin
snap := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS,0);
me.dwSize := SizeOf(TPROCESSENTRY32);
if Process32First(snap,me)=true then ShowMessage('ok');
while Process32Next(snap,me)=true do
begin
tmp := '';
r := 0;
while me.szExeFile[r]<>#0 do
begin
tmp := tmp + me.szExeFile[r];
inc(r);
end;
MessageBox(0,pchar(tmp),'hehe:)',0);
end;
end;
end.
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
const
TH32CS_SNAPPROCESS = $00000002;
type
PPROCESSENTRY32 = ^TPROCESSENTRY32;
TPROCESSENTRY32 = packed record
dwSize,
cntUsage,
th32ProcessID,
th32DefaultHeapID,
th32ModuleID,
cntThreads,
th32ParentProcessID: DWORD;
pcPriClassBase: LongInt;
dwFlags: DWORD;
szExeFile: array[0..MAX_PATH-1] of char;
end;
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
function CreateToolhelp32Snapshot(dwFlags, th32ProcessID: DWORD): THandle; stdcall; external 'kernel32.dll' name 'CreateToolhelp32Snapshot';
function Process32First(hSnapshot: THandle; const lppe: TPROCESSENTRY32): boolean; stdcall;external 'kernel32.dll' name 'Process32First';
function Process32Next(hSnapshot: THandle; const lppe: TPROCESSENTRY32): boolean; stdcall;external 'kernel32.dll' name 'Process32Next';
implementation
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
var
snap: THandle;
tmp: string;
me: TPROCESSENTRY32;
r: integer;
begin
snap := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS,0);
me.dwSize := SizeOf(TPROCESSENTRY32);
if Process32First(snap,me)=true then ShowMessage('ok');
while Process32Next(snap,me)=true do
begin
tmp := '';
r := 0;
while me.szExeFile[r]<>#0 do
begin
tmp := tmp + me.szExeFile[r];
inc(r);
end;
MessageBox(0,pchar(tmp),'hehe:)',0);
end;
end;
end.
;)