uses ddeman; 
 
procedure SuchDlg(StartOrdner: string); 
begin 
  with tddeclientconv.create(Form1) do begin 
    connectmode := ddemanual; 
    serviceapplication := 'Explorer.exe'; 
    setlink('Folders', 'AppProperties'); 
    openlink; 
    ExecuteMacro(pchar('[FindFolder("' + StartOrdner + '")]'), true); 
    closelink; 
    free; 
  end; 
end; 
 
// Beispielaufruf 
 
procedure TForm1.Button3Click(Sender: TObject); 
begin 
  suchdlg('c:\windows'); 
end;