Автор: server_mouse

Пользуем NetShareAdd
Declared in Lmshare.h
Use Netapi32.lib

NET_API_STATUS res; 
SHARE_INFO_2 inf; 
 
memset(&inf, 0, sizeof(inf)); //Обнуляем структуру 
inf.shi2_netname = _T("TEST_TEMP"); // Имя шаринга 
inf.shi2_type = STYPE_DISKTREE; // расшариваем папку 
inf.shi2_remark = _T("TeSt"); //Примечание. Хорошо наблюдается из консоли 'net share' 
inf.shi2_permissions = ACCESS_READ|ACCESS_EXEC; //Доступ на чтение и исполнение 
inf.shi2_max_uses = 4; //Ограничение на макс. кол-во подключеных юзеров 
inf.shi2_path = _T("C:\\temp"); //Собственно папка, которую расшариваем 
inf.shi2_passwd = NULL; // Без пароля 
res=NetShareAdd(NULL, //LocalComputer
                    2, 
                    (LPBYTE) &inf, 
                    NULL); //Не хотим знать доп. инф. об ошибке 
 
if(res==NERR_Success)     return; //Всё получилось, выходим.

Ну вот, примерно так. Для 9х там по-другому, написать могу, но протестить негде.