Mega Code Archive
Extract All Icons From Shell32.dll
<![CDATA[
Title: Extract All Icons From Shell32.dll
Question: How to extract all icons from shell32.dll (EASY)
Answer:
ShellSPY V1.1a
is the award winning and powerful monitoring solution that you need! ShellSPY
gives you the power to log all keystrokes, windows viewed, applications ran, internet
connections made, passwords entered, chat conversations that were made, Monitor
all running tasks on your pc Download
Now
// Hi Cjp here..
// drop a listview on a the form
// add a column.
// change the view style to smallicons
// Oncreate event will populate the images into the listview..
// Note.
// I was board so I thought I would add some simple units to
// this site ENJOY..
unit iconobject;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls,shellapi,comobj, ComCtrls;
type
TForm1 = class(TForm)
ListView1: TListView;
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
Desktopicon: TimageList;
implementation
{$R *.DFM}
procedure TForm1.FormCreate(Sender: TObject);
Var Sfi : TSHFileInfo;
I : Integer;
ListItem : TListItem;
begin
// Extract all windows 95/98/2000 icons
DesktopIcon:= TImageList.Create(Self);
DesktopIcon.Handle := SHGetFileInfo('', 0, sfi, SizeOf(TSHFileInfo),
shGFI_SYSICONINDEX or SHGFI_SMALLICON);
DesktopIcon.ShareImages := TRUE;
ListView1.SmallImages := Desktopicon;
For I:=0 to 255 -1 do
With ListView1 Do
Begin
ListItem := Items.add;
ListItem.Caption := Inttostr(I);
ListItem.ImageIndex := I;
End;
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Desktopicon.free;
end;
end.
]]>