Вниз
Скачать: CL | DM;

Как выбрать удаленный компьютер в диалоге   Найти похожие ветки 

← →
AlexS76   (2004-03-11 09:53) [0]

Господа! Надо в диалоге выбрать компьютер в сети и UNC имя получить как String.
SHBrowseForFolder - позволяет выбирать но строку выдает пустую, хотя если выбрать в диалоге директорию на удаленном компьютере все нормально работает.(естественно с флагом BIF_RETURNONLYFSDIRS).


← →
clickmaker ©   (2004-03-11 12:06) [1]

BIF_BROWSEFORCOMPUTER


← →
AlexS76   (2004-03-11 14:30) [2]

Я Все понимаю - меня считают за придурка не умеющего читать хелпы. Но повторяю с флагом BIF_BROWSEFORCOMPUTER
при выборе удаленного компьютера SHGetPathFromIDList возвращает пустую строку. Я подозреваю что нужно пользоваться другой функцией но этот код работает только для директорий
var
TitleName : string;
Pidl,lpItemID : PItemIDList;
BrowseInfo : TBrowseInfo;
DisplayName : array[0..MAX_PATH] of char;
s:pchar;
begin
FillChar(BrowseInfo, sizeof(TBrowseInfo), #0);
BrowseInfo.hwndOwner := Form1.Handle;
BrowseInfo.pszDisplayName := @DisplayName;
TitleName := "???????? ???????";
SHGetSpecialFolderLocation(Form1.Handle, CSIDL_NETWORK, PIDL);
BrowseInfo.lpszTitle := PChar(TitleName);
s := StrAlloc(1024);
BrowseInfo.pidlRoot:=Pidl;
If Brws=0 then
       BrowseInfo.ulFlags := BIF_RETURNONLYFSDIRS

else
       BrowseInfo.ulFlags := BIF_BROWSEFORCOMPUTER;
LpItemID:= SHBrowseForFolder(BrowseInfo);
if lpItemId <> nil then
  If Brws=0 then begin
       SHGetPathFromIDList(lpItemID, s);
       result:=s;
       GlobalFreePtr(lpItemID);
       GlobalFreePtr(Pidl);
  end;
end;


← →
Игорь Шевченко ©   (2004-03-11 14:54) [3]


> при выборе удаленного компьютера SHGetPathFromIDList возвращает
> пустую строку


А к DisplayName приделать \\ спереди не поможет ?


← →
Игорь Шевченко ©   (2004-03-11 14:56) [4]

BOOL SHGetPathFromIDList(          LPCITEMIDLIST pidl,
   LPTSTR pszPath
);

pidl -
Address of an item identifier list that specifies a file or directory location relative to the root of the namespace (the desktop).

Вроде, про компьютеры ничего не написано...



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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.021 c
3-1080822047
Yad
2004-04-01 16:20
2004.05.02
Агрегатные поля


14-1081426797
lepton77
2004-04-08 16:19
2004.05.02
А где новые дайджесты форумов?


3-1081411563
Slider007
2004-04-08 12:06
2004.05.02
Имя запроса MSAccess в Delphi


4-1078595459
Shopot
2004-03-06 20:50
2004.05.02
WinAPI. Ring-0.


3-1080812286
lightix
2004-04-01 13:38
2004.05.02
Переход на новую страницу в QuickReport




   Наверх