Как программно через delphi создать папку на диске?

[VenMaster]

Как программно через delphi создать папку на диске?

[eoln]

sysutils.CreateDir('c:\000')

[VenMaster]

eoln спасибо. А вот можно ли сделать так что бы папка создавалась в папке откуда запущенна программа???

[eoln]

sysutils.CreateDir(extractfilepath(application.exename)+'000')

[VenMaster]

Не ругайте меня сильно, но просто чтоб не создавать новую тему задам последний вопрос.
Предположим у на форме есть OpenDialog как при выборе файла происходило его копирование в указанную деррикторию.

eoln еще раз СПС, помог

[eoln]

path := 'c:\';
if opendialog1.Execute then
copyfile(pchar(opendialog1.FileName),pchar(path+extractfilename(opendialog1.FileName)),true);