Konu Görünümü | Doğrusal Görünüm

01-16-2009 21:53

PHP Kodu:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, TlHelp32;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: 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
    Memo1.Lines.Add(Struct.szExeFile);
  while Process32Next(MyHandle, Struct) do
    Memo1.Lines.Add(Struct.szExeFile);
end;

end. 

Benzeyen Konular
Konu:		Yazar	Cevaplar:	Görüntüleyenler:	Son Mesaj
	Delphi ile veritabanındaki verileri listelemek	µGµr	0	103	08-28-2009 7:25 Son Mesaj: µGµr
	Delphi ipuçları	µGµr	0	107	01-16-2009 22:06 Son Mesaj: µGµr
	32 Tane Delphi 7 kaynak kodlu örnek!	µGµr	0	280	01-16-2009 21:52 Son Mesaj: µGµr
	Delphi için süper kaynak e-kitap	µGµr	0	115	01-16-2009 21:50 Son Mesaj: µGµr

Konu Görünümü \| Doğrusal Görünüm Delphi code: Windows Altında Çalışan Programları Listele
Yazar	Mesaj