GetOpenFileNamePreview - unerwartetes Verhalten

[Christian Seehase]

Moin Luckie,

wenn Du's mal sehen möchtest, kannst Du das hier mal laufen lassen (die Deklarationen stehen ja weiter oben, uses Commdlg nicht vergessen):

Delphi-Quellcode:

procedure TfrmMAIN.Button1Click(Sender: TObject);

var
  ofnStruct : TcsOPENFILENAME;
  sError    : string;

begin
  FillChar(ofnStruct,SizeOf(TcsOPENFILENAME),0);
  ofnStruct.lStructSize := SizeOf(TcsOPENFILENAME);
  ofnStruct.lpstrFilter := PChar('AVI'#00'*.avi'#00#00);
  ofnStruct.lpstrFile         := AllocMem(MAX_PATH+1);
  ofnStruct.nMaxFile          := MAX_PATH;
  ofnStruct.Flags             := OFN_EXPLORER;
  ofnStruct.FlagsEx           := OFN_EX_NOPLACESBAR;
  try
    if not GetOpenFileNamePreviewA(@ofnStruct) then
    begin
      sError := IntToHex(CommDlgExtendedError,8);
      if sError <> '00000000' then
      begin
        ShowMessage(sError);
      end;
    end;
  finally
    FreeMem(ofnStruct.lpstrFile,MAX_PATH+1);
  end;
end;

Wenn Du jetzt OFN_EXPLORER mal durch 0 ersetzt und dann, sobald der Dialog da ist, auf eine AVI Datei klickst, siehst Du im Old Style Dialog das, was im anderen auch da sein müsste.