(100分)怎样将函数的结果导入到listview中
发布时间：2010-01-20 |
1楼: unit ddd;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs,shlobj,activex, StdCtrls, Buttons;
type
TForm1 = class(TForm)
Button1： TButton;
procedure Button1Click(Sender： TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1： TForm1;
implementation
{$R *.dfm}
function BrowseForFolder(Caption： String; Root： PItemIDList;
Flags： Cardinal = 0)： PItemIDList;
var
BrowseInfo： TBrowseInfo;
ShellMalloc： IMalloc;
Buffer： PChar;
begin
FillChar(BrowseInfo, SizeOf(BrowseInfo), 0);
ShGetMalloc(ShellMalloc);
Buffer ：= ShellMalloc.Alloc(MAX_PATH);
with BrowseInfo do
begin
hwndOwner ：= Application.Handle;
pidlRoot ：= Root;
pszDisplayName ：= Buffer;
lpszTitle ：= PChar(Caption);
ulFlags ：= Flags;
end;
Result ：= SHBrowseForFolder(BrowseInfo);
ShellMalloc.Free(Buffer);
end;
procedure TForm1.Button1Click(Sender： TObject);
var
Root： PItemIDList;
begin
SHGetSpecialFolderLocation(Form1.Handle,CSIDL_NETWORK,Root);
BrowseForFolder(‘选择‘,Root);
end;
end.
如上所示，我想将button1的结果导入到listview中，就是把网上邻居的列表导入listview。请各位指教
字串5
2楼: http：//www.delphibbs.com/delphibbs/dispq.asp？lid=91497 如何在程序中动态取得"网络邻居"中的工作组及计算机名？ 字串2 3楼: 我上面的button1的结果已经获得了网上邻居的列表，我的问题是如何才能将它们导入listview字串9
4楼: 没人知道吗？分不够可以再加,请大家赐教 字串4 5楼: 这个工作恐怕没有那么简单哦，你可查看一下，BusinessSkinForm控件组中的bsSkinShellCtrls.pas文件，它的FileListView就可根据你选择的standard folder而显示出相关的内容（这其中就包括了网络邻居等等）。这个是赋有源码的控件。从它的代码里看，你上面的代码，只不过是万里长征才走了第一步而已哦。 字串3 6楼: 虽然没有得到答案，但还是谢谢你的帮助，我已经改用分级枚举网络邻居的内容，然后逐级将其导入listview，基本解决。另外，我还想问一下，下面二段代码，是不是在任何情况下，结果完全相同,回答后马上给分
一、
if treeview.Selected.Level = 0 then
begin
if treeview.Selected.count = 0 then .......
end;
if treeview.selected.level = 1 then
begin
if treeview.Selected.count = 0 then.......
end;
二、
if (treeview.Selected.Level = 0) and(treeview.Selected.count = 0) then .......
if (treeview.selected.level = 1) and(treeview.Selected.count = 0) then....... 字串5 7楼: 当从逻你辑上来说，如果把 treeview.Selected.Level 看做是条件A,把treeview.Selected.count 看做是条件B,那么上述的表达式就是
IF A=0 THEN
IF B=0 THEN
和表达式
IF A=0 AND B=0 THEN
我看不出有不一样的地方哦。 字串7
8楼: 谢谢app2001,接受答案了 字串1
9楼: 怎样给分给你？？ 字串5 10楼: 嘿，你看着给呗字串2