Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Prikaz svih trenutnih procesa

[es] :: Pascal / Delphi / Kylix :: Prikaz svih trenutnih procesa

[ Pregleda: 3412 | Odgovora: 5 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

freespace
Filip Skorup
Donji Miholjac

Član broj: 31925
Poruke: 72
*.cmu.carnet.hr.

Sajt: filsko.100webspace.net


Profil

icon Prikaz svih trenutnih procesa09.12.2004. u 10:25 - pre 235 meseci
Kako najjednostavnije pokazati u npr. ListBox-u sve trenutne procese koji rade.
(One u taskmanageru) . Molim vas pomozite
 
Odgovor na temu

Riste Pejov
Team Leader/Senior Software Developer @
Ein-Sof ltd Skopje
Skopje, Macedonia

Član broj: 128
Poruke: 571
217.16.77.*

Jabber: richie@bagra.net.mk
ICQ: 154236769
Sajt: riste.softver.org.mk


Profil

icon Re: Prikaz svih trenutnih procesa09.12.2004. u 10:43 - pre 235 meseci
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.
People who think they know everything tend to irritate those of us who do.
 
Odgovor na temu

MilošV
Podgorica

Član broj: 7996
Poruke: 484
195.66.163.*



+1 Profil

icon Re: Prikaz svih trenutnih procesa09.12.2004. u 11:07 - pre 235 meseci
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
 
Odgovor na temu

morlic
Milos Orlic
Beograd

Član broj: 6081
Poruke: 735
*.227.EUnet.yu.



+1 Profil

icon Re: Prikaz svih trenutnih procesa09.12.2004. u 17:24 - pre 234 meseci
U JCL biblioteci imas unit jclSysInfo i u njemu interesantne funkcije za to sto ti treba.

http://sourceforge.net/projects/jcl/
 
Odgovor na temu

freespace
Filip Skorup
Donji Miholjac

Član broj: 31925
Poruke: 72
*.cmu.carnet.hr.

Sajt: filsko.100webspace.net


Profil

icon Re: Prikaz svih trenutnih procesa09.12.2004. u 20:10 - pre 234 meseci
Hvala puno!
 
Odgovor na temu

CyberB

Član broj: 169
Poruke: 58
*.air.tehnicom.net.



Profil

icon Re: Prikaz svih trenutnih procesa12.12.2004. u 23:11 - pre 234 meseci
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.


;)
 
Odgovor na temu

[es] :: Pascal / Delphi / Kylix :: Prikaz svih trenutnih procesa

[ Pregleda: 3412 | Odgovora: 5 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.