Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

РАСШАРИТЬ ДИСК [D6, Win95/98]


ATLANTIDO ©   (2002-02-23 20:47:00) 

Как програмно расшарить диск на локальном компьютере ?
То есть программа должна расшарить диск на компьютере
на котором она запущена.


ATLANTIDO   (2002-02-25 10:53:00) [1]

sanks!


[NIKEL]   (2002-02-24 16:47:00) [2]

вот посмотри исходник , тока на С

#include <stdio.h>
#include <windows.h>
#include <svrapi.h>

int main(int argc, char FAR * argv[])
{
char FAR * pszServerName = NULL;
short nLevel = 50;
struct share_info_50* pBuf = NULL;
unsigned short cbBuffer;
NET_API_STATUS nStatus;
//
// Для локального компьютера ServerName должно быть NULL.
//
if ((argc < 3) || (argc > 4))
{
printf("Usage: %s [\\\\ServerName] ShareName SharePath\n", argv[0]);
exit(1);
}

if (argc == 4)
pszServerName = argv[1];
//
// Распределяем память для структуры share_info_50.
//
cbBuffer = sizeof(struct share_info_50);
pBuf = malloc(cbBuffer);

if (pBuf == NULL)
printf("No memory\n");
//
// Заносим значения в структуру share_info_50.
//
strcpy(pBuf->shi50_netname, argv[argc-2]);
pBuf->shi50_type = STYPE_DISKTREE;
pBuf->shi50_flags = SHI50F_FULL;
pBuf->shi50_remark = NULL;
pBuf->shi50_path = argv[argc-1];
pBuf->shi50_rw_password[0] = "\0"; // Без пароля
pBuf->shi50_ro_password[0] = "\0"; // Без пароля
//
// Вызываем функцию NetShareAdd, указывая
// информационный уровень 50.
//
nStatus = NetShareAdd(pszServerName,
nLevel,
(char FAR *)pBuf,
cbBuffer);
//
// Отображаем результаты вызова функции.
//
if (nStatus == NERR_Success)
printf("Share added successfully\n");
else
fprintf(stderr, "A system error has occurred: %d\n", nStatus);
//
// Освобождаем распределённую память.
//
if (pBuf != NULL)
free(pBuf);

return 0;
}


Наверх

Титульная страница Поиск, карта сайта Написать письмо