Компонент для создания Скинов?

  • Автор темы [m7]Zeitgeist
  • Дата начала
Статус
Закрыто для дальнейших ответов.
M

[m7]Zeitgeist

Гость
#1
Желательно бесплатный!

Так-же нужен компонент для отображения в виде дерева компьютеров в сети и дисков на локальном ПК тоже желательно бесплатные!
 
Z

zubr

Гость
#2
Так-же нужен компанент для отображения в виде дерева компьютеров в сети и дисков на локальном ПК тоже желательно бесплатные!
Код:
procedure TForm1.Button1Click(Sender: TObject);
var
TitleName : string;
lpItemID : PItemIDList;
BrowseInfo : TBrowseInfo;
DisplayName : array[0..MAX_PATH] of char;
TempPath : array[0..MAX_PATH] of char;
begin
FillChar(BrowseInfo, sizeof(TBrowseInfo), #0);
BrowseInfo.hwndOwner := Form1.Handle;
BrowseInfo.pszDisplayName := @DisplayName;
TitleName := 'Please specify a directory';//или твой текст, который должен отображаться в заголовке
BrowseInfo.lpszTitle := PChar(TitleName);
BrowseInfo.ulFlags := BIF_RETURNONLYFSDIRS;
lpItemID := SHBrowseForFolder(BrowseInfo);
if lpItemId <> nil then
begin
 SHGetPathFromIDList(lpItemID, TempPath);
 ShowMessage(TempPath);
 GlobalFreePtr(lpItemID);
end;
end;
 
Статус
Закрыто для дальнейших ответов.