TURNONLYFSDIRS + BIF_EDITBOX;  
SHGetDesktopFolder(id);  
initdir := pwchar(root);  
id.ParseDisplayName(0, nil, initdir, eaten, rt, att);  
lpbi.pidlRoot := rt;  
getmem(lpbi.pszDisplayName, MAX_PATH);  
try  
result := shgetpathfromidlist(shbrowseforfolder(lpbi), buf);  
except  
freemem(lpbi.pszDisplayName);  
end;  
if result then  
begin  
directory := buf;  
if length(directory) <> 3 then directory := directory + ''\'';  
end;  
end;  

function MainDialogProc(  
DlgWin: hWnd;  
DlgMessage: UINT;  
DlgWParam: WPARAM;  
DlgLParam: LPARAM  
)  
: integer; stdcall;  
var  
MyIcon: HICON;  
Sdir: string;  
begin  
Result := 0;  
case DlgMessage of  
WM_INITDIALOG:  
begin  
MyIcon := LoadIcon(hInstance, ''MainIcon'');  
SetClassLONG(DlgWin, GCL_HICON, MyIcon);  
MainWin := DlgWin;  
end;  
WM_Close:  
begin  
PostQuitMessage(0);  
Exit;  
end;  
WM_COMMAND:  
case LOWORD(DlgWParam) of  

ID_Selet:  
begin  
if SelectDirectory(DlgWin, ''请选择安装目录'', '''', Sdir)  
then SendMessage(GetDlgItem(DlgWin, ID_Edit), WM_SETTEXT, 0, lParam(pChar(Sdir)));  
end;  
ID_Setup:  
begin  
if My_Gettext = '''' then  
begin  
MessageBox(DlgWin, ''请先选择安装文件夹!'', ''信息'', MB_ICONINFORMATION + MB_OK);  
Exit;  
end;  
CopyFile(pchar(ParamStr(0)), pchar(My_Gettext + Getmyname), false);  
MessageBox(DlgWin, ''安装完毕!'', ''信息'', MB_ICONINFORMATION + MB_OK);  
PostQuitMessage(0);  
Exit;  
end;  
ID_Quit:  
begin  
PostQuitMessage(0);  
EXIT;  
end;  
ID_Exit:  
begin  
if MessageBox(DlgWin, ''你点击了菜单“退出”，你确定退出程序吗?'', ''信息'', MB_ICONQUESTION + MB_OKCANCEL) = IDOK then  
PostQuitMessage(0);  
Exit;  
end;  
end;  
end;  
end;  
begin  
DialogBox(hInstance, ''MAINFORM'', 0, @MainDialogProc);  
end.