w00dzr(木头?!还是木头)　和 quietman(小高同志) 注意了！！！

40Star 2002-02-01 08:21:28

不用夹在头文件中，夹在unit1.cpp文件中就行，就是下面的第一句
我在win2k + bcb5中已经通过了！！！
记住一定放在第一句
#include <vcl.h>的上方，否则报错！！！

//---------------------------------------------------------------------------
#define NO_WIN32_LEAN_AND_MEAN//---->就是这句,放在第一行!!!!!!!!!!!!!!!!!!!!!!!!
#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"

//这下面就是代码!!!
void __fastcall TForm1::Button1Click(TObject *Sender)
{
BROWSEINFO b;
char GDir[MAX_PATH];
char FolderName[MAX_PATH];
LPITEMIDLIST ItemID;
memset(&b, 0, sizeof(BROWSEINFO));
memset(GDir, 0, MAX_PATH);

b.ulFlags =BIF_RETURNONLYFSDIRS ;
b.hwndOwner = Handle;
b.pszDisplayName = FolderName;
b.lpszTitle = "选择要进入的文件夹......"; //写入一些文字
ItemID = SHBrowseForFolder(&b);
SHGetPathFromIDList(ItemID, GDir);
GlobalFree(ItemID);
String Temp = String(GDir);
if (Temp=="")
{
Edit1->Text ="No";
return;
}

Edit1->Text =Temp;
}

...全文