如何调用Win2000风格的OpenDialog？[GetOpenFileName API](100分)

Kingron · 2001-03-26

我用下面的API，总是不能调用出来，那位兄弟给看看？ 错误信息是：参数错误。 type   TLPOFNHOOKPROC=function(h:hwnd;uMsg:UINT;wp:wparam;lp:lParam):integer; type   TOpenInfo=packed record      lStructSize:dword;      hwndOwner:hwnd;      hInstance:Hwnd;      lpstrFilter:LPCTSTR;      lpstrCustomFilter:LPTSTR;      nMaxCustFilter:dword;      nFilterIndex:dword;      lpstrFile:lptstr;      nMaxFile:dword;      lpstrFileTitle:lptstr;      nMaxFileTitle:dword;      lpstrInitialDir:lpctstr;      lpstrTitle:lpctstr;      Flags:dword;      nFileOffset:word;      nFileExtension:word;      lpstrDefExt:lpctstr;      lCustData:Lparam;      lpfnHook:TLPOFNHOOKPROC;      lpTemplateName:lpctstr;      pvReserved:integer;      dwReserved:dword;      FlagsEx:dword;   end; function GetOpenFileName(var info:TOpenInfo):boolean;stdcall; external 'comdlg32.dll'  name 'GetOpenFileNameA'; procedure TForm1.BitBtn1Click(Sender: TObject); var   info:TOpenInfo; begin   info.lStructSize:=sizeof(info);   info.hWndOwner:=handle;   info.hInstance:=hinstance;   info.lpstrFilter:='';   info.lpstrCustomFilter:='';   info.nMaxCustFilter:=0;   info.nFilterIndex:=0;   info.lpstrFile:='c:/text.txt';   info.nMaxFile:=2;   info.lpstrFileTitle:='Open';   info.lpstrInitialDir:='c:/';   info.lpstrTitle:='Open Test';   info.Flags:=OFN_ENABLESIZING+OFN_EXPLORER;   info.nFileOffset:=0;   info.nFileExtension:=1;   info.lpstrDefExt:='.txt';   info.lCustData:=0;   info.lpfnHook:=nil;   info.lpTemplateName:='';   info.pvReserved:=0;   info.dwReserved:=0;   info.FlagsEx:=0;   GetOpenFileName(info);   caption:=SysErrorMessage(getlasterror); end;

xk · 2001-03-26

到这里看看 http://www.codeproject.com/dialog/win2kfiledlg.asp 欢迎访问vcl控件讨论区：http://vcl.xilubbs.com

Kingron · 2001-03-27

可惜是VC的。而且我想用API来调用。看看我的题目。 ..

热血 · 2001-03-27

那个结构delphi本身就有了 不用自己定义吧

wqhuo · 2001-03-27

问题在这儿，兄弟：   info.lStructSize:=sizeof(info);   info.hWndOwner:=handle;   info.hInstance:=hinstance;   info.lpstrFilter:='';     info.lpstrCustomFilter:='';   info.nMaxCustFilter:=0;   info.nFilterIndex:=0;   info.lpstrFile:='c:/text.txt';       //该参数使用来存放对话框返回的文件名（包含路径）的，得是一个至少256个长的Pchar   info.nMaxFile:=2;                //该参数使用来指定info.lpstrFile长度以及存放对话框返回的文件名的长度的     info.lpstrFileTitle:='Open';   info.lpstrInitialDir:='c:/';   info.lpstrTitle:='Open Test';     //该参数使用来存放对话框返回的文件名的  info.nFileOffset:=0;   info.nFileExtension:=1;   info.lpstrDefExt:='.txt';   info.lCustData:=0;   info.lpfnHook:=nil;   仔细查一查帮助吧，正确的调用如下： var   info:TOpenInfo;   lpstrFile:array[0..1000] of char;   lpstrFileTitle:array[0..1000] of char;   lpstrFilter:array[0..50] of char;   S:String; begin   FillChar(lpstrFile,SizeOf(lpstrFile),0);   FillChar(lpstrFileTitle,SizeOf(lpstrFileTitle),0);   FillChar(lpstrFilter,SizeOf(lpstrFilter),0);   S:='文本文件';   Move(S[1],lpstrFilter,Length(S));   S:='*.TXT';   Move(S[1],lpstrFilter[9],Length(S));   info.lStructSize:=sizeof(info);   info.hWndOwner:=handle;   info.hInstance:=hinstance;   info.lpstrFilter:=lpstrFilter;   info.lpstrCustomFilter:=nil;   info.nMaxCustFilter:=0;   info.nFilterIndex:=1;   info.lpstrFile:=lpstrFile;   info.nMaxFile:=SizeOf(lpstrFile);   info.lpstrFileTitle:=lpstrFileTitle;   info.nMaxFileTitle:=SizeOf(lpstrFileTitle);   info.lpstrInitialDir:='c:/';   info.lpstrTitle:='Open Test';   info.Flags:=0;//OFN_ENABLESIZING+OFN_EXPLORER;   info.nFileOffset:=0;   info.nFileExtension:=0;   info.lpstrDefExt:='txt';   info.lCustData:=0;   info.lpfnHook:=nil;   info.lpTemplateName:='';   info.pvReserved:=0;   info.dwReserved:=0;   info.FlagsEx:=0;   try   if GetOpenFileName(@info) then   ShowMessage(info.lpstrFile);   except   caption:=SysErrorMessage(getlasterror);   end;

Kingron · 2001-03-27

接受答案了.

如何调用Win2000风格的OpenDialog？[GetOpenFileName API](100分)

Kingron

Unregistered / Unconfirmed

xk

Unregistered / Unconfirmed

Kingron

Unregistered / Unconfirmed

热血

Unregistered / Unconfirmed

wqhuo

Unregistered / Unconfirmed

Kingron

Unregistered / Unconfirmed

Similar threads