27. Februar 2010 14:06
IF ISCLEAR(ShellControl) THEN
CREATE(ShellControl);
IF RootFolder = '' THEN
Folder := ShellControl.BrowseForFolder(0,Text000,0)
ELSE
Folder := ShellControl.BrowseForFolder(0,Text000,0,RootFolder);
IF NOT ISCLEAR(Folder) THEN BEGIN
CLEAR(ShellControl);
EXIT(Folder.Items().Item.Path);
END;
1. März 2010 09:40
1. März 2010 09:59