общая папка

[CraZZy RabbIt]

вопрос - как создать общую папку с помощью делфи?

[S@fer]

shellExecute(Handle, nil, 'net', 'share MySharedC=C:\111', nil, SW_HIDE);

И не забудь в Uses прописать ShellApi

[CraZZy RabbIt]

а как создать папку,чтоб путь и имя задавались в едитах???

[Stilet]

Ну и ну...

shellExecute(Handle, nil, 'net', 'share '+pchar(EditMySharedC.text)+'='+pchar(EditPath.text), nil, SW_HIDE);

[Xcopy]

Ответы на твои вопросы уже есть!

CreateDir(const Dir: string): Boolean — создает новый каталог на диске.

MkDir(const S: string) — аналог функции CreateDir. Отличие в том, что в случае ошибки при создании каталога функция MkDir создает исключительную ситуацию.

DeleteFile(const FileName: string): Boolean — удаляет файл с диска.

DirectoryExists(const Directory: string): Boolean — проверяет, существует ли заданный каталог на диске.
Пример:
if DirectoryExists(ExtractFilePath(App lication.ExeNam e)+'Image')=false then
CreateDir(ExtractFilePath(Applicati on.ExeName)+'Im age');

Если хочеш из едита:
Кидаеш на форму edit и button (оба на вкладке стандарт), кликаеш 2 раза по button и пиши между begin и end:

CreateDir(Edit1.Text);

Потом смело жми f9... Все работает, сам проверял, кстати лучше удалить весь текст с свойства текст едита...

[CraZZy RabbIt]

я так уже пробовал...
все равно вылазит
Incompatible types: 'String' and 'PAnsiChar'

[Xcopy]

Пробуй тогда как написал я, у меня попроще будет...

я так уже пробовал...
все равно вылазит
Incompatible types: 'String' and 'PAnsiChar'

Потому, что edit1.text, это строка (string).

[Stilet]

Ответы на твои вопросы уже есть!

Это что шару создаст?

[CraZZy RabbIt]

"Потому, что edit1.text, это строка (string)."

а pchar(EditPath.text) преобразует строку с к типу пчар,но все равно не работает((

[Stilet]

CraZZy RabbIt

А ты пробовал наш с Сайфером код?:

shellExecute(Handle, nil, 'net', pchar('share '+EditMySharedC.text+'='+EditPath.text), nil, SW_HIDE)

Смекалку то включи.