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?