Советы по delphi \ Файловая система \ Другое \ Работа с 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, но подумать на эту тему
теоретически можно.

Название: Работа с Shell NameSpace
Дата публикации: 2004-01-27 (3257 Прочтено)