// Es wird der Windows-Explorer mit dem Ordner geöffnet, in dem sich
// eine angegebene Datei befindet, wobei die Datei selektiert wird.


// Getestet mit D2010 unter Win7
 

procedure OpenExplorerAndSelectFile(FileName: TFileName); 
begin 
  shellexecute(0, 'open', pchar('Explorer'), 
    pchar('/e,/select, "' + FileName + '"'), nil, SW_SHOWNA); 
end;

 


 

Zugriffe seit 6.9.2001 auf Delphi-Ecke