1. Набираем команду codeby webinar. Набираем команду для организации и проведения вебинаров. Подробнее ...

    Скрыть объявление
  2. Требуются разработчики и тестеры для проекта codebyOS. Требования для участия в проекте: Знание принципов работы ОС на базе Linux; Знание Bash; Крайне желательное знание CPP, Python, Lua; Навыки системного администрирования. Подробнее ...

    Скрыть объявление
  3. Получи 30.000 рублей. Для получения денег необходимо принять участие в конкурсе авторов codeby. С условиями и призами можно ознакомиться на этой странице ...

    Внимание! Регистрация авторов на конкурс закрыта.

    Скрыть объявление

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

Тема в разделе "Delphi - программирование", создана пользователем [m7]Zeitgeist, 9 дек 2005.

Статус темы:
Закрыта.
  1. [m7]Zeitgeist

    [m7]Zeitgeist Гость

    Репутация:
    0
    Желательно бесплатный!

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

    zubr Гость

    Репутация:
    0
    Код:
    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;
     
Загрузка...
Статус темы:
Закрыта.

Поделиться этой страницей