zoukankan      html  css  js  c++  java
  • 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.
  • 相关阅读:
    【BZOJ4444】国旗计划
    NOIp模拟赛三十一
    [arc086e]snuke line
    NOIp模拟赛三十
    [agc004f]namori
    [agc004d]salvage robot
    [agc016b]colorful hats
    NOIp模拟赛二十九
    [arc082f]sandglass
    Oracle性能报告--ASH
  • 原文地址:https://www.cnblogs.com/qq32175822/p/3143933.html
Copyright © 2011-2022 走看看