Open- und Save-Dialoge in der Details-Ansicht

[stupid42]

In irgendeinem Thread wurde die Frage gestellt, wie man die beiden Dialoge mit der Details-Ansicht startet.

Die dort genannte Lösung war eine DLL.

Absolut kompletter Unfug!

Man macht es besser so:
=====

Delphi-Quellcode:

procedure TMainForm.OpenDialog1FolderChange(Sender: TObject);
var
  H, H2: THandle;
begin
  H := FindWindowEx(GetParent(OpenDialog1.Handle), 0,
    PChar('SHELLDLL_DefView'), nil);
  H2 := FindWindowEx(H, 0, PChar('SysListView32'), nil);
  if (H <> 0) and (H2 <> 0) then
  begin
    SendMessage(H, WM_COMMAND, $702C, 0);
    Windows.SetFocus(H2);
  end;
end;

=====

Funzt mit (hier getestet) Win98FE bis WinXPpro mit SP2.
Und mit D5 bis D7.

Die obigen paar Delphi-Sourcecode-Zeilen sind leider *nicht* von mir, ich habe sie lediglich "recycled".

Vielen Dank an den unbekannten Autor!

HTH you all!

[edit=Christian Seehase]Delphi-Tags gesetzt. Bitte künftig selber machen. Danke. Mfg, Christian Seehase[/edit]