unit1.pas

Delphi编程技巧13

unit Unit1;
//http://perso.wanadoo.fr/bardou/michel/
interface

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

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    ListBox1: TListBox;
    ListBox2: TListBox;
    Button1: TButton;
    Panel2: TPanel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Edit2: TEdit;
    Edit1: TEdit;
    Label2: TLabel;
    Label1: TLabel;
    Label6: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
    procedure Edit2Change(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { D閏larations priv閑s }
  public
    { D閏larations publiques }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

function UpString(Str: string): string;
var i: integer;
begin
  result:='';
  for i:=1 to length(str) do
    result:=result+UpCase(str[i]);
end;

function ProgEnCours(NomProg:string):boolean;
var
LPPE : TProcessEntry32;
H      : Thandle;

begin
  result := false;
  h:=CreateToolhelp32Snapshot(TH32CS_SNAPALL ,0);
  Lppe.DwSize:=Sizeof(TProcessEntry32);
  if Process32First(h,lppe)
  then
  Begin;
    if  UpString(ExtractFileName(LPPE.szexefile))=UpString(NomProg) then result:=true;
    while Process32next(h,lppe) do
    begin
      if  UpString(ExtractFileName(LPPE.szexefile))=Upstring(NomProg) then result:=true;
    end;
  End;
  Closehandle(h);
end;



procedure TForm1.Button1Click(Sender: TObject);
var
LPPE : TProcessEntry32;
H      : Thandle;

begin

Listbox1.Clear;
h:=CreateToolhelp32Snapshot(TH32CS_SNAPALL ,0);
Lppe.DwSize:=Sizeof(TProcessEntry32);
if Process32First(h,lppe)
then
Begin;
  listbox1.items.add(LPPE.szexefile);
  listbox2.items.add(ExtractFileName(LPPE.szexefile));
  while Process32next(h,lppe) do
  begin
    listbox1.items.add(LPPE.szexefile);
    listbox2.items.add(ExtractFileName(LPPE.szexefile));
  end;

End;
  Closehandle(h);
end;


procedure TForm1.Edit1Change(Sender: TObject);
// premi鑢e solution. Cette solution fait appel