如何生成目录？

Question

procedure TForm1.Button1Click(Sender: TObject);var
  Dir: string;
begin  Dir := 'C:\APPS\SALES\LOCAL';  if ForceDirectories(Dir) then
    Label1.Caption := Dir + ' was created'end;

Answer 1

uses FileCtrl;procedure TForm1.Button1Click(Sender: TObject);
begin
  if not DirectoryExists('c:\temp') then
    if not CreateDir('C:\temp') then
    raise Exception.Create('Cannot create c:\temp');
end;

Answer 2

mkdir(yourdirname);
ForceDirectories(yourdirname);api:
BOOL CreateDirectory(    LPCTSTR  lpPathName, // pointer to a directory path string
    LPSECURITY_ATTRIBUTES  lpSecurityAttributes  // pointer to a security descriptor 
   );