Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.10.10;
Скачать: CL | DM;

Вниз

SHBrowseForFolder и SHGetPathFromIDList   Найти похожие ветки 

 
Nebuchadnezzar ©   (2002-08-27 18:04) [0]

Всем привет!!!
Помогите разобраться...
Задача в следующем: используя SHBrowseForFolder открыть диалог и выбрать компьютер в локальной сети, получить его имя. Проблема в том что функция SHGetPathFromIDList возвращает False если в SHBrowseForFolder использовался флаг BIF_BROWSEFORCOMPUTER.
вот кусок кода:
procedure TfrmMain.actBrowseForServerExecute(Sender: TObject);
var vReturnInfo : PItemIDList;
vBrowseInfo : TBrowseInfo;
vTempPath : array [0..MAX_PATH] of Char;
begin
FillChar(vBrowseInfo, SizeOf(TBrowseInfo), #0);
vBrowseInfo.hwndOwner := Application.Handle;
vBrowseInfo.lpszTitle := "Select Server Name...";
vBrowseInfo.ulFlags := BIF_BROWSEFORCOMPUTER;
vReturnInfo := SHBrowseForFolder(vBrowseInfo);
if vReturnInfo = nil then Exit;
try
if not SHGetPathFromIDList(vReturnInfo, vTempPath) then raise Exception.Create("SHGetPathFromIDList fails...");
finally
GlobalFreePtr(vReturnInfo);
end;
end;


 
Ученик ©   (2002-08-27 18:11) [1]

http://delphi.mastak.ru/cgi-bin/faq.pl?look=1&id=988622138&n=15


 
Nebuchadnezzar ©   (2002-08-27 18:36) [2]

С этим примером ( http://delphi.mastak.ru/cgi-bin/faq.pl?look=1&id=988622138&n=15) все понятно, он работает нормально, но дело в том что там используется флаг BIF_RETURNONLYFSDIRS а мне не нужно выбирать папку, нужно выбрать только имя компьютера (флаг BIF_BROWSEFORCOMPUTER)


 
Nebuchadnezzar ©   (2002-08-27 18:47) [3]

Все, проблема решена, SHGetPathFromIDList вообще не надо использовать...



Страницы: 1 вся ветка

Текущий архив: 2002.10.10;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.019 c
14-32014
Ирка
2002-09-17 17:04
2002.10.10
Delphi 4


3-31669
dim-
2002-09-18 14:47
2002.10.10
Пользователь в ADOConnection


7-32031
laza admin
2002-08-02 00:55
2002.10.10
Поможите склепать ауторан! надо чтобы по нажатию на батон открыва


1-31735
KidMan
2002-09-30 22:24
2002.10.10
Exell и база данных


1-31868
croupeir
2002-09-29 14:28
2002.10.10
Вертикальный текст