我想要做一个象Windows2000的打开对话框一样的OpenDialog但是Windows2000打开对话框

[Linux2001]

我想要做一个象Windows2000的打开对话框一样的OpenDialog但是Windows2000打开对话框左边那些什么我的电脑，我的文档，网上邻居之类的是如何实现的啊

[ahdou0]

你何必要自己做了？看看www.51delphi.com中的控件，里面有现成的控件.delphi的特点就是
开发效率高，如果什么都自己做，且不是累死人？

[cobi]

使用特定的控件吧

[Linux2001]

但是我认为自己做比较好用

[Linux2001]

没有人了吗，5555555555555555555

[thedream]

自己做form,左边那些用按钮
根据那些按狃的onclick,改变combobox和listview的内容

[thedream]

自己做form,左边那些用按钮
根据那些按狃的onclick,改变combobox和listview的内容

[Linux2001]

好象可以哦,试一试啊

[luo73]

看一看下面的代码，引用 Win2K/XP 'comdlg32.dll'中的函数！

********************************************************)

unit AgOpenDialog;
interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, CommDlg;

type
TAgOpenDialog = class(TOpenDialog)
private
{ Private declarations }
protected
{ Protected declarations }
FShowPlacesBar : boolean;
FInterceptor : Pointer;
function IsWin2000 : boolean;
public
{ Public declarations }
constructor Create(AOwner: TComponent); override;
function Execute: Boolean; override;
published
{ Published declarations }
property ShowPlacesBar : boolean read FShowPlacesBar write FShowPlacesBar;
end;

TAgSaveDialog = class(TAgOpenDialog)
public
constructor Create(AOwner: TComponent); override;
end;


procedure Register;

type
TOpenFileNameEx = packed record
lStructSize: DWORD;
hWndOwner: HWND;
hInstance: HINST;
lpstrFilter: PAnsiChar;
lpstrCustomFilter: PAnsiChar;
nMaxCustFilter: DWORD;
nFilterIndex: DWORD;
lpstrFile: PAnsiChar;
nMaxFile: DWORD;
lpstrFileTitle: PAnsiChar;
nMaxFileTitle: DWORD;
lpstrInitialDir: PAnsiChar;
lpstrTitle: PAnsiChar;
Flags: DWORD;
nFileOffset: Word;
nFileExtension: Word;
lpstrDefExt: PAnsiChar;
lCustData: LPARAM;
lpfnHook: function(Wnd: HWND; Msg: UINT; wParam: WPARAM; lParam: LPARAM): UINT stdcall;
lpTemplateName: PAnsiChar;
pvReserved : Pointer;
dwReserved : DWORD;
FlagsEx : DWORD;
end;

function GetOpenFileNameEx(var OpenFile: TOpenFilenameEx): Bool; stdcall;
function GetSaveFileNameEx(var OpenFile: TOpenFilenameEx): Bool; stdcall;
implementation

{$R *.RES}

function GetOpenFileNameEx; external 'comdlg32.dll' name 'GetOpenFileNameA';
function GetSaveFileNameEx; external 'comdlg32.dll' name 'GetSaveFileNameA';

procedure Register;
begin
RegisterComponents('Samples', [TAgOpenDialog, TAgSaveDialog]);
end;

var
CurInstanceShowPlacesBar : boolean;
function OpenInterceptor(var DialogData: TOpenFileName): Bool; stdcall;
var DialogDataEx : TOpenFileNameEx;
begin
Move(DialogData, DialogDataEx, sizeof(DialogDataEx));
if CurInstanceShowPlacesBar then
DialogDataEx.FlagsEx := 0
else
DialogDataEx.FlagsEx := 1;
DialogDataEx.lStructSize := sizeof(TOpenFileNameEx);
Result := GetOpenFileNameEx( DialogDataEx );
end;

function SaveInterceptor(var DialogData: TOpenFileName): Bool; stdcall;
var DialogDataEx : TOpenFileNameEx;
begin
Move(DialogData, DialogDataEx, sizeof(DialogDataEx));
if CurInstanceShowPlacesBar then
DialogDataEx.FlagsEx := 0
else
DialogDataEx.FlagsEx := 1;
DialogDataEx.lStructSize := sizeof(TOpenFileNameEx);
Result := GetSaveFileNameEx( DialogDataEx );
end;

{ TAgOpenDialog }

constructor TAgOpenDialog.Create(AOwner: TComponent);
begin
inherited;
FShowPlacesBar := TRUE;
FInterceptor := @OpenInterceptor;
end;

function TAgOpenDialog.Execute: Boolean;
var Inst : Pointer;
begin
if IsWin2000 then
begin
CurInstanceShowPlacesBar := FShowPlacesBar;
Result := DoExecute(FInterceptor);
end
else
Result := inherited Execute;
end;

function TAgOpenDialog.IsWin2000: boolean;
var ver : TOSVersionInfo;
begin
Result := FALSE;
ver.dwOSVersionInfoSize := SizeOf(TOSVersionInfo);
if not GetVersionEx(ver ) then
Exit;

if (ver.dwPlatformId=VER_PLATFORM_WIN32_NT) then
begin
// Test for the product.
if ( ver.dwMajorVersion >= 4 ) then
Result := TRUE;
end;
end;


{ TAgSaveDialog }

constructor TAgSaveDialog.Create(AOwner: TComponent);
begin
inherited;
FInterceptor := @SaveInterceptor;
end;

end.