![](https://img-blog.csdnimg.cn/20201014180756913.png?x-oss-process=image/resize,m_fixed,h_64,w_64)
ListView
文章平均质量分 50
seagull327
若大的世界
展开
-
ListView控件的使用方法
ListView控件的使用方法 //增加 i := listview1.Items.Count; with ListView1 do begin ListItem:=Items.Add; ListItem.Caption:= I转载 2011-07-18 15:48:45 · 2045 阅读 · 1 评论 -
Listview自画图标模式
unit LauncherUnit;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Buttons, ExtCtrls, ComCtrls, CommCtrl, ShellAPI, ImgList, StdCtrls;type转载 2013-05-01 01:37:41 · 1988 阅读 · 0 评论 -
delphi取得文件图标并在TListView中显示
{delphi取得文件图标并在TListView中显示技术要点: 一、使用SHGetFileInfo函数获取指定扩展名的文件图标。需要引用ShellAPI单元。 二、使用TStringList来保存扩展名与其图标的索引号。当添加一个文件名至TListView后,我们已经取得了其图标,再次添加同样扩展名的文件时,不需再次获取其图标,只要从该TStringList中取得其图标索引号即可}转载 2013-05-01 15:42:40 · 6722 阅读 · 0 评论 -
TlistView显示文件图标
usesshellApi;var icon: TIcon; FileName: string; FileInfo: TSHFileInfo;begin if OpenDialog1.Execute then begin ListView1.GridLines := True; ListView1.ViewStyle := vsReport; try原创 2013-05-01 01:15:01 · 2365 阅读 · 1 评论 -
ListView_Registry
var reg: TRegistry; KeyList: TStringList; intIdx: Integer; Itm: TListItem; s: string;begin try KeyList := TStringList.Create; reg := TRegistry.Create; reg.RootKey := HKEY_LOCA原创 2009-10-19 02:06:00 · 460 阅读 · 0 评论 -
简易枚举进程模块信息演示
将上例数组改成用指针存放模块信息演示uses TlHelp32;var PidL: TStringList; //存放PID列表 [全局] EntryL: Tlist;原创 2011-08-14 16:00:34 · 726 阅读 · 0 评论 -
获取进程路径
uses Tlhelp32, PsAPI;var ProcArr: array of TProcessEntry32; ColumnToSort: Integer;procedure EnumProcess(pNameList, PidList: TStr原创 2011-08-15 21:57:24 · 650 阅读 · 0 评论 -
TListView的使用
ListView1.Items 为标准 Tlistitems类ListView1.Items(1)赋值with ListView1.Items.Add dobeginCaption:=caption; //添加第一项SubItems.add(aaaaa);转载 2011-08-16 21:12:42 · 618 阅读 · 0 评论 -
进程模块信息
uses Tlhelp32;var modList: TStrings;procedure ModuleEnum(processid: Dword;Var ProcList: TstringList);var ModuleList: Thandle;原创 2011-08-13 13:37:30 · 684 阅读 · 0 评论 -
进程列表
function AdjustProcessPrivilege(Processhandle: Thandle; Token_Name: pchar): boolean; //提权var Token: cardinal; TokenPri: _TOKEN原创 2011-08-12 15:08:47 · 700 阅读 · 1 评论 -
ListView排序
var Form1: TForm1; m_bSort: boolean = false;implementation{$R *.dfm}//ListView排序的回调函数,默认的是快速排序法,也可以在这里做算法function CustomSort原创 2011-07-16 21:53:10 · 461 阅读 · 0 评论 -
ListView动态获取文件图标
uses ShellAPI;procedure TForm1.btn1Click(Sender: TObject); //大图标视图var LgImg: THandle; sfi: TSHFileInfo; sName, fName: string;begin Lgimg := SHGetFileInfo(pchar('c:\'), 0, sfi, SizeOf(原创 2013-05-04 01:38:51 · 1529 阅读 · 0 评论