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]