Welkom bij de Tweaking4All gemeenschapsforums!
Voor je gaat deelnemen, bekijk de Forum Regels!
Specifieke onderwerpen: Start het onderwerp met de naam van het programma of systeem.
Bijvoorbeeld “MacOS X – Jouw vraag“, of bijvoorbeeld “MS Word – Jouw Tip of Truc“.
Merk op: Omschakelen naar een andere taal zal niet werken als je een post aan het lezen bent aangezien er waarschijnlijk geen vertaling beschikbaar is.
Met deze functie kun je de nieuwe Directory Selectie functie van Windows aanroepen.
// MyNewFolder:=dtSelectFolder('c:');
// Selecteer Directory dialoog (nieuwe style)
// Geeft dezelfde directory terug (StartDir) of de geselecteerde directory
//
// Toevoegen: Uses ShlObj !!!!
function dtSelectFolder(StartDir:string):string;
var browse_info: TBrowseInfo; folder: array[0..MAX_PATH] of char; find_context: PItemIDList;
begin
FillChar(browse_info,SizeOf(browse_info),#0);
browse_info.pszDisplayName := @folder[0];
browse_info.lpszTitle := PChar('Kies een Directory');
browse_info.ulFlags := BIF_RETURNONLYFSDIRS and BIF_BROWSEFORCOMPUTER and BIF_NEWDIALOGSTYLE;
browse_info.lpfn := nil;
find_context := SHBrowseForFolder(browse_info);
if Assigned(find_context) and SHGetPathFromIDList(find_context,folder) then
result := folder
else
result := StartDir;
end;