Работа с Shell NameSpace

Советы » Другое » Работа с Shell NameSpace

Как поместить объект из Shell Namespace (например, My Computer) в свою форму?

В принципе у IE4 ActiveX (aka TWebBrowser) есть метод Navigate2, в который можно передать объект из Shell Namespace
procedure

TForm1.Button1Click(Sender: TObject); var

PIDL: PItemIdList; cbpidl: Integer;
Path, A,B,C,D: Olevariant; begin


SHGetSpecialFolderLocation( Handle, CSIDL_DRIVES, PIDL ); cbpidl := LocalSize(Cardinal(pidl)); if cbpidl > 0 then
begin
Path := VarArrayCreate([0, cbpidl-1], varByte); Move(pidl^, VarArrayLock(Path)^, cbpidl); VarArrayUnlock(Path);
WebBrowser1.Navigate2(Path); end;
CoTaskMemFree(PIDL);
end

;

Там еще правда надо разбираться с Security, но подумать на эту тему теоретически можно.

Другое по теме:

Категории

Статьи

Советы

Copyright © 2022 - All Rights Reserved - www.delphirus.com