Show Or Hide TaskBar
[code lang=”delphi”]procedure TForm1.btnHideTaskBarClick(Sender: TObject); Var TaskBarHandle : Integer; Begin TaskBarHandle := FindWindow(‘Shell_TrayWnd’,Nil); ShowWindow(TaskBarHandle, SW_HIDE); End; procedure TForm1.btnShowTaskBarClick(Sender: TObject); Var TaskBarHandle : Integer; Begin…
System Images
[code lang=”delphi”]Procedure CreateImages; var SysIL: HImageList; SFI: TSHFileInfo; begin // Create an image list component MyTreeView.Images := TImageList.Create(Self); // This gets the small…
System Image Usage
[code lang=”delphi”]function GetIconIndex(const AFile: string; Attrs: DWORD): integer; var SFI: TSHFileInfo; begin SHGetFileInfo(PChar(AFile), Attrs, SFI, SizeOf(TSHFileInfo), SHGFI_SYSICONINDEX or SHGFI_USEFILEATTRIBUTES); Result := SFI.iIcon; end;[/code]…