VPF::Люди, помогите новечку плиз - Форум программистов

m_averick

Дата 24.3.2007, 23:24 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 32
Регистрация: 11.12.2006
Где: Одесса

Репутация: нет
Всего: нет

Люди, такач проблема: надо составить список всез разшареных папок на компе. Но какое свойство папки читать и чем - ума не приложу!! Помогите кто чем может, пожалуцчта!!!!!

codelord

Дата 25.3.2007, 09:29 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 777
Регистрация: 7.5.2005
Где: ты моя темноглаза я где?!

Репутация: 16
Всего: 39

NetShareEnum();

--------------------

Доступен поиск по исходным кодам в GOOGLE.
http://www.google.com/codesearch

ama_kid

Дата 25.3.2007, 09:44 (ссылка)

(нет голосов)

Загрузка ...

АСУТП-кодер

Профиль
Группа: Комодератор
Сообщений: 1460
Регистрация: 5.3.2007
Где: Москва

Репутация: 10
Всего: 95

Привожу тебе рабочий код на Delphi, переведешь получишь результат. На форме - батон и листбокс...

Код


unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, StdCtrls;

type
  TForm1 = class(TForm)
    btnGetShares: TButton;
    lbxShares: TListBox;
    procedure btnGetSharesClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
type 
 TShareInfo50 = packed record
  shi50_netname    : array [0..12] of Char;
  shi50_type        : Byte;
  shi50_flags        : Word;
  shi50_remark        : PChar;
  shi50_path        : PChar;
  shi50_rw_password    : array [0..8] of Char;
  shi50_ro_password    : array [0..8] of Char;
 end;
type 
 TShareInfo2 = packed record
  shi2_netname            : PWChar;
  shi2_type            : DWORD;
  shi2_remark            : PWChar;
  shi2_permissions        : DWORD;
  shi2_max_uses        : DWORD;
  shi2_current_uses        : DWORD;
  shi2_path            : PWChar;
  shi2_passwd            : PWChar;
 end;
 PShareInfo2 = ^TShareInfo2;
 TShareInfo2Array = array [0..512] of TShareInfo2;
 PShareInfo2Array = ^TShareInfo2Array;


var
  Form1: TForm1;
  NetShareEnumNT :function (ServerName    :PWChar;
                            Level            :DWORD;
                            Bufptr          :Pointer;
                            Prefmaxlen    :DWORD;
                            EntriesRead,
                            TotalEntries,
                            resume_handle:LPDWORD): DWORD; stdcall;
implementation

{$R *.dfm}


procedure TForm1.btnGetSharesClick(Sender: TObject);
var
  i:Integer;
  FLibHandle : THandle; 
  ShareNT : PShareInfo2Array;
  entriesread,totalentries:DWORD;
begin
  lbxShares.Items.Clear;
    FLibHandle := LoadLibrary('NETAPI32.DLL'); //Загружаем библиотеку
    if FLibHandle = 0 then Exit;
    //Связываем функцию
    @NetShareEnumNT := GetProcAddress(FLibHandle,'NetShareEnum');
    if not Assigned(NetShareEnumNT) then //Проверка
    begin
      FreeLibrary(FLibHandle);
      Exit;
    end;
    ShareNT := nil; //Очищаем указатель на массив структур
    //Вызов функции
    if NetShareEnumNT(nil,2,@ShareNT,DWORD(-1),
             @entriesread,@totalentries,nil) <> 0 then
    begin //Если вызов неудачен выгружаем библиотеку
      FreeLibrary(FLibHandle);
      Exit;
    end;
    if entriesread > 0 then //Обработка результатов
    for i:= 0 to entriesread - 1 do
            lbxShares.Items.Add(String(ShareNT^[i].shi2_netname));

    FreeLibrary(FLibHandle); //Не забываем выгрузить библиотеку
end;

end.

--------------------

самурай без меча подобен самураю с мечом, но только без меча

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| C++ Builder \| Следующая тема »