haiou327’blog

ListView控件的使用方法 //增加 i := listview1.Items.Count; with ListView1 do begin ListItem:=Items.Add; ListItem.Caption:= I

unit LauncherUnit;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Buttons, ExtCtrls, ComCtrls, CommCtrl, ShellAPI, ImgList, StdCtrls;type

{delphi取得文件图标并在TListView中显示技术要点：　　一、使用SHGetFileInfo函数获取指定扩展名的文件图标。需要引用ShellAPI单元。　　二、使用TStringList来保存扩展名与其图标的索引号。当添加一个文件名至TListView后，我们已经取得了其图标，再次添加同样扩展名的文件时，不需再次获取其图标，只要从该TStringList中取得其图标索引号即可}

usesshellApi;var icon: TIcon; FileName: string; FileInfo: TSHFileInfo;begin if OpenDialog1.Execute then begin ListView1.GridLines := True; ListView1.ViewStyle := vsReport; try

var reg: TRegistry; KeyList: TStringList; intIdx: Integer; Itm: TListItem; s: string;begin try KeyList := TStringList.Create; reg := TRegistry.Create; reg.RootKey := HKEY_LOCA

将上例数组改成用指针存放模块信息演示uses TlHelp32;var PidL: TStringList; //存放PID列表 [全局] EntryL: Tlist;

uses Tlhelp32, PsAPI;var ProcArr: array of TProcessEntry32; ColumnToSort: Integer;procedure EnumProcess(pNameList, PidList: TStr

ListView1.Items 为标准 Tlistitems类ListView1.Items(1)赋值with ListView1.Items.Add dobeginCaption:=caption; //添加第一项SubItems.add(aaaaa);

uses Tlhelp32;var modList: TStrings;procedure ModuleEnum(processid: Dword;Var ProcList: TstringList);var ModuleList: Thandle;

function AdjustProcessPrivilege(Processhandle: Thandle; Token_Name: pchar): boolean; //提权var Token: cardinal; TokenPri: _TOKEN

var Form1: TForm1; m_bSort: boolean = false;implementation{$R *.dfm}//ListView排序的回调函数，默认的是快速排序法，也可以在这里做算法function CustomSort

uses ShellAPI;procedure TForm1.btn1Click(Sender: TObject); //大图标视图var LgImg: THandle; sfi: TSHFileInfo; sName, fName: string;begin Lgimg := SHGetFileInfo(pchar('c:\'), 0, sfi, SizeOf(