Windowsda işləyən proqramlar

[Ʌüsal]

Windowsda işləyən proqramların siyahsına baxmaq üçün Delphidə hazırlanan kiçik bir proqram.

Forma 1 ədəd Button və 1 ədəd Memo komponentini əlavə edin.

 

Kod bölümündəki uses sətrinə aşağıdakı kodu daxil edin.

 

TlHelp32

 

Daha sonra Button klik edin və aşağıdakı kodu daxil edin.

 

var

MyHandle: THandle;

Struct: TProcessEntry32;

begin

MyHandle:=CreateToolHelp32SnapShot(TH32CS_SNAPPROCESS, 0);

Struct.dwSize:=Sizeof(TProcessEntry32);

if Process32First(MyHandle, Struct) then

Proses.Lines.Add(Struct.szExeFile);

while Process32Next(MyHandle, Struct) do

Proses.Lines.Add(Struct.szExeFile);

end;

 

 

Ümumi kodu:

 

unit Unit1;

 

interface

 

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, TlHelp32, StdCtrls;

 

type

TForm1 = class(TForm)

Button1: TButton;

Proses: TMemo;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

 

var

Form1: TForm1;

 

implementation

 

{$R *.dfm}

 

procedure TForm1.Button1Click(Sender: TObject);

 

var

MyHandle: THandle;

Struct: TProcessEntry32;

begin

MyHandle:=CreateToolHelp32SnapShot(TH32CS_SNAPPROCESS, 0);

Struct.dwSize:=Sizeof(TProcessEntry32);

if Process32First(MyHandle, Struct) then

Proses.Lines.Add(Struct.szExeFile);

while Process32Next(MyHandle, Struct) do

Proses.Lines.Add(Struct.szExeFile);

end;

 

end.

 

1.jpg

[Axellis]

Cox Sagol Vusal

[farid.93]

tewekkur

[Hacker-8km]

sagol vusal tsk

[Ʌüsal]

deymez

[zeus]

Çox sağol Vüsal

[TΛNNΞЯ]

Vusal cox sagol bunun Visual Basic ucun olani yoxdu ?

[Mubariz_bmw]

Mende alinmadi,sebeb cox guman tlHelp32 komponentinin olmamasidir,bu komponenti hardan tapa bilerem?ve butun komponentler elave olunmus bir Delphi versiyasi varmi?

Umumiyyetle en funksional Delpi versiyasi hansidir?

[Ʌüsal]

uses bolumune TlHelp32 elave edirsenki proyektde onu daxil etsin

[•SaiD•]

bu nediki

[Tərlan]

said Bu Delphi7/xe-də açıq proqramları göstərmək üçün yaradacağınız proqramın kodlarıdır. Task manager kimi bir proqram

Paylaşım üçün təşəkkür

[anar2708]

Salam said. Bu Task Manager kimi bir proqramdı. Yəqinki işlətməmisən bu proqramları.