GetOpenFileNamePreview - unerwartetes Verhalten

[MathiasSimmack]

Hi Christian.

Frag nicht warum, aber wenn ich das Beispiel von der URL nachvollziehe, die du angegeben hast, dann funktioniert es. Das Original fix in Delphi nachgebaut (mal ohne dynamischen Schnickschnack, usw.):

Delphi-Quellcode:

uses
  CommDlg;

function GetOpenFileNamePreview(var OpenFile: TOpenFileNameA): Bool; stdcall;
  external 'msvfw32.dll' name 'GetOpenFileNamePreviewA';

procedure TForm1.Button1Click(Sender: TObject);
var
  ofn : TOpenFileName;
begin
  ZeroMemory(@ofn,sizeof(TOpenFileName));
  ofn.lStructSize := sizeof(ofn);
  ofn.lpstrFilter := 'AVIs'#0'*.avi'#0#0;

  GetOpenFileNamePreview(ofn);
end;

Ergebnis: der Dialog hat den neuen Stil, und zeigt bei der Auswahl einer AVI rechts die Preview an. Getestet habe ich´s mit D5-Pro unter Win98.

Gruß,
Mathias.


PS: Unter WinXP wird bei obigem Code nur der alte Stil angezeigt. Wie das unter Win 2000 ist, weiß ich nicht. Aber wäre es nicht möglich, dass Microsoft diesen Dialog dort nur im alten Stil untergebracht hat?