Как поместить объект из 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, но подумать на эту тему
теоретически можно.