GetOpenFileNamePreview - unerwartetes Verhalten

[Christian Seehase]

Moin Mathias,

bei mir sieht die OPENFILENAME Struktur so aus

Delphi-Quellcode:

type
  PcsOPENFILENAME = ^TcsOPENFILENAME;
  TcsOPENFILENAME =
    packed record
      lStructSize       : DWORD;
      hwndOwner         : HWND;
      hInstance         : DWORD;
      lpstrFilter       : PChar;
      lpstrCustomFilter : PChar;
      nMaxCustFilter    : DWORD;
      nFilterIndex      : DWORD;
      lpstrFile         : PChar;
      nMaxFile          : DWORD;
      lpstrFileTitle    : PChar;
      nMaxFileTitle     : DWORD;
      lpstrInitialDir   : PChar;
      lpstrTitle        : PChar;
      Flags             : DWORD;
      nFileOffset       : WORD;
      nFileExtension    : WORD;
      lpstrDefExt       : PChar;
      lCustData         : lParam;
      lpfnHook          : PcsOFNHookProc;
      lpTemplateName    : PChar;
      pvReserved        : Pointer;
      dwReserved        : DWORD;
      FlagsEx           : DWORD;
    end;

die erforderlichen Konstanten so

Delphi-Quellcode:

const // aus COMMDLG.H
  OFN_READONLY             = $00000001;
  OFN_OVERWRITEPROMPT      = $00000002;
  OFN_HIDEREADONLY         = $00000004;
  OFN_NOCHANGEDIR          = $00000008;
  OFN_SHOWHELP             = $00000010;
  OFN_ENABLEHOOK           = $00000020;
  OFN_ENABLETEMPLATE       = $00000040;
  OFN_ENABLETEMPLATEHANDLE = $00000080;
  OFN_NOVALIDATE           = $00000100;
  OFN_ALLOWMULTISELECT     = $00000200;
  OFN_EXTENSIONDIFFERENT   = $00000400;
  OFN_PATHMUSTEXIST        = $00000800;
  OFN_FILEMUSTEXIST        = $00001000;
  OFN_CREATEPROMPT         = $00002000;
  OFN_SHAREAWARE           = $00004000;
  OFN_NOREADONLYRETURN     = $00008000;
  OFN_NOTESTFILECREATE     = $00010000;
  OFN_NONETWORKBUTTON      = $00020000;
  OFN_NOLONGNAMES          = $00040000;
  OFN_EXPLORER             = $00080000;
  OFN_NODEREFERENCELINKS   = $00100000;
  OFN_LONGNAMES            = $00200000;
  OFN_ENABLEINCLUDENOTIFY  = $00400000;
  OFN_ENABLESIZING         = $00800000;
  OFN_DONTADDTORECENT      = $02000000;
  OFN_FORCESHOWHIDDEN      = $10000000;
  OFN_EX_NOPLACESBAR       = $00000001;

und die Funktionsdeklarationen so

Delphi-Quellcode:

function GetOpenFileNameA(const lpofn : PcsOPENFILENAME) : Boolean; stdcall; external 'comdlg32.dll';
function GetSaveFileNameA(const lpofn : PcsOPENFILENAME) : Boolean; stdcall; external 'comdlg32.dll';
function GetOpenFileNamePreviewA(const lpofn : PcsOPENFILENAME) : Boolean; stdcall; external 'msvfw32.dll';
function GetSaveFileNamePreviewA(const lpofn : PcsOPENFILENAME) : Boolean; stdcall; external 'msvfw32.dll';

Das alles auch mal, falls jemand darin noch einen Fehler entdecken kann, denn ausserhalb der Kompo, nur unter Verwendung dieser Deklarationen funktioniert's ja auch nicht