View Single Post
  #3  
Old 12-04-2006, 06:15 AM
modernsavage modernsavage is offline
Senior Member
 
Join Date: Sep 2004
Posts: 120
Default RE: Browse For Folder Dialog

The following code allows you to select a folder and create.

const
SELDIRHELP = 1000;
var
Dir: string;
begin
Dir := 'C:\';
if SelectDirectory(Dir, [sdAllowCreate, sdPerformCreate, sdPrompt],SELDIRHELP) then
Label1.Caption := Dir;
end;

Freeware utilities
Reply With Quote