能不能把网上邻居加入到drivecombobox的列表中??? 等待 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 function BrowseForComputer(const winhandle : THANDLE; const title : string) : string; var BrowseInfo : TBrowseInfo; IDRoot : PItemIDList; Path : array[0..MAX_PATH] of Char;begin SHGetSpecialFolderLocation(winHandle, CSIDL_NETWORK, IDRoot); ZeroMemory(@BrowseInfo, SizeOf(TBrowseInfo)); ZeroMemory(@path, MAX_PATH); BrowseInfo.hwndOwner := winhandle; BrowseInfo.pidlRoot := IDRoot; BrowseInfo.lpszTitle := PChar(title); BrowseInfo.pszDisplayName := @path; BrowseInfo.ulFlags := BIF_BROWSEFORCOMPUTER; SHBrowseForFolder(BrowseInfo); result := strpas(path) ;end;procedure TConnectFrm.Button1Click(Sender: TObject);begin ComboBox1.Text := BrowseForComputer(ConnectFrm.Handle,'Select a Computer') ; end; 到这句BrowseInfo : TBrowseInfo;就出错,我该怎么办? 求 关于DELPHI接口陷阱的解决办法 急!在线等!求救,也是两个oracle数据库连接的问题 求一SQL语句 请问在DELPHI中怎样将ASCII码转化为BCD码,在线等待 有Enat for msn的注册号或注册机,你就可以得到分 在一个窗体单元中使用另一个窗体单元的过程,传递Sender值的问题: 简单问题,在线讨论 ADOQuery的问题!!!!! 100分寻求软件或实现代码,不知道是不是很菜的问题 在线等急! 哪里有LAN聊天的源码 请大家帮忙!一个SQL问题
var
BrowseInfo : TBrowseInfo;
IDRoot : PItemIDList;
Path : array[0..MAX_PATH] of Char;
begin
SHGetSpecialFolderLocation(winHandle, CSIDL_NETWORK, IDRoot);
ZeroMemory(@BrowseInfo, SizeOf(TBrowseInfo));
ZeroMemory(@path, MAX_PATH);
BrowseInfo.hwndOwner := winhandle;
BrowseInfo.pidlRoot := IDRoot;
BrowseInfo.lpszTitle := PChar(title);
BrowseInfo.pszDisplayName := @path;
BrowseInfo.ulFlags := BIF_BROWSEFORCOMPUTER;
SHBrowseForFolder(BrowseInfo);
result := strpas(path) ;
end;procedure TConnectFrm.Button1Click(Sender: TObject);
begin
ComboBox1.Text := BrowseForComputer(ConnectFrm.Handle,'Select a Computer') ;
end;