| |
 |
Wie zeige ich den Windows Explorer Suchen-Dialog an?
06-10-2002 18:33
|
|
Ein L?sung daf?r ist es eine DDE-Konversation mit der Explorer.exe.
Siehe folgendem Sourcecode
|
uses DDEMan;
{...}
procedure SuchenInOrdner(Folder : string);
begin
with TDDEClientConv.Create(Application) do
begin
ConnectMode := ddeManual;
ServiceApplication := 'Explorer.exe';
SetLink('Folders', 'AppProperties');
OpenLink;
ExecuteMacro(PChar('[FindFolder(, '+ Folder+')]'), False);
CloseLink;
Free;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
SuchenInOrdner('c:\Windows');
end;
|
|
Vorsicht mit dieser Funktion. In Windows 2000 wird der Suchen-Dialog nicht mehr als separates Fenster angezeigt, sondern ist im Explorer Layout integriert. Das ist zwar f?r die Funktion egal, allerdings in einem eigenen Programm sieht es sehr merkw?rdig aus, wenn auf einmal der Explorer ge?ffnet wird.
|
|
|
|
|
