Delphi程序流程(3)(while)(自己构建结构数组写进程管理器 包含动态结构数组的添加)

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,TLHelp32, ComCtrls;

type
  TForm1 = class(TForm)   
     btn1: TButton;
    lv1: TListView;
    procedure btn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation
   type
   my32=record //自己定义的结构

   A1:string; 　// 进程名
   A2:Integer;　//进程id
   end;
{$R *.dfm}

procedure TForm1.btn1Click(Sender: TObject);
var i,x:Integer;
    kk:LongBool;
    pe32: tagPROCESSENTRY32;
    myrecode:array of my32; //自己定义结构数组
    newitem:TListItem;
begin
     myrecode:=nil;   //清空 结构数组
    i:=CreateToolhelp32Snapshot(2,0);
    pe32.dwSize:=1024;
    kk:=Process32First(i,pe32);
    x:=0;
    while kk=True do
    begin
       x:=x+1;
       SetLength(myrecode,x); //重命名结构上限
       myrecode[x-1].A2:=pe32.th32ProcessID; //x-1下标表示是从0下标开始
       myrecode[x-1].A1:= pe32.szExeFile;
       kk:=Process32Next(i,pe32);
    end;
    CloseHandle(i); //关闭句柄

    i:=  Length(myrecode);   //取数组个数
   //ShowMessage(IntToStr(i));
   lv1.Clear;    //清空超级列表框
   for x:=0 to i-1 do
   begin
        newitem:=lv1.Items.Add;
        newitem.Caption:=myrecode[x].A1;
        newitem.SubItems.Add(IntToStr(myrecode[x].A2));
   end;
end;

end.