공유정보를 읽어오는것입니다. 김영대님의 팁에서 가져왔습니다.



// 아래 예제는 Windows NT/Windows 2000 는 지원하지 않습니다

// 다른 플랫폼은 MSDN 사이트를 참고하세요

// http://msdn.microsoft.com/library/sdkdoc/network/ntlmapi_18bz.htm



unit Unit1;



interface



uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

StdCtrls;



type

TForm1 = class(TForm)

Button1: TButton;

Memo1: TMemo;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;



type

// Win95/98 에서 share info는 0,1,2,50 structure 만 사용가능

// Windows NT에서 share info는 0,1,2,501,502,1005 structure 만 사용가능

Share_Info50 = packed record

shi50_netname : array[0..12] of Char; {13}

shi50_type : Byte;

shi50_flags : Word;

shi50_remark : PChar;

shi50_path : PChar;

shi50_rw_password : array[0..8] of Char; {9}

shi50_ro_password : array[0..8] of Char;

end;



var

Form1: TForm1;



implementation

{$R *.DFM}



function NetShareGetInfo(ServerName: PChar;

NetName: PChar;

ShareLevel: SmallInt;

Buffer: Pointer;

Size: Word;

var Used: Word): Integer; stdcall external 'SVRAPI.DLL';



function GetShareInfo(ServerName: PChar;

NetName: PChar;

var ShareStruct: Share_Info50): Integer;

var

PMyShare: ^Share_Info50;

AmountUsed: Word;

Error: Integer;

begin

PMyShare := AllocMem(255);

// 50 -> for Win95/98 peer servers

Error := NetShareGetInfo(ServerName, NetName, 50, PMyShare, 255, AmountUsed);

if Error = 0 then // 에러없음

begin

ShareStruct.shi50_netname := PMyShare.shi50_netname;

ShareStruct.shi50_type := PMyShare.shi50_type;

ShareStruct.shi50_flags := PMyShare.shi50_flags;

ShareStruct.shi50_remark := PMyShare.shi50_remark;

ShareStruct.shi50_path := PMyShare.shi50_path;

ShareStruct.shi50_rw_password := PMyShare.shi50_rw_password;

ShareStruct.shi50_ro_password := PMyShare.shi50_ro_password;

end;

FreeMem(PMyShare);

Result := Error;

end;



procedure TForm1.Button1Click(Sender: TObject);

var

Share_Info: Share_Info50;

rt: Integer;

begin

Memo1.Lines.Clear;

FillChar(Share_Info, SizeOf(Share_Info50), 0);



// * Local Machine 이 아닌 원격지 컴퓨터의 경우는 정확히 동작하지 않습니다

// '김영대' -> 컴퓨터 이름 (nil 은 Local Machine을 의미합니다)

// 'ZZZ' -> 공유이름

rt := GetShareInfo('김영대', 'ZZZ', Share_Info);

if rt = 0 then

begin

Memo1.Lines.Add('공유이름: '+Share_Info.shi50_netname);

if Share_Info.shi50_type = 0 then

Memo1.Lines.Add('공유 종류: 디렉토리 공유')

else if Share_Info.shi50_type = 1 then

Memo1.Lines.Add('공유 종류: 프린터 공유');

Memo1.Lines.Add('전체 경로: '+Share_Info.shi50_path);

Memo1.Lines.Add('설명: '+StrPas(Share_Info.shi50_remark));

if Share_Info.shi50_flags = (256 or 1) then

Memo1.Lines.Add('사용 권한: 읽기 전용')

else if Share_Info.shi50_flags = (256 or 2) then

Memo1.Lines.Add('사용 권한: 읽기/쓰기')

else if Share_Info.shi50_flags = (256 or 1 or 2) then

Memo1.Lines.Add('사용 권한: 암호에 따라 다름');



Memo1.Lines.Add('읽기/쓰기 암호: '+Share_Info.shi50_rw_password);

Memo1.Lines.Add('읽기 전용 암호: '+Share_Info.shi50_ro_password);

end

else

begin

Memo1.Lines.Add('정보를 읽어올 수 없습니다. 에러번호('+IntToStr(rt)+')');

end;

end;



end.



아무게 wrote:

> 원격지 컴퓨터의 공유 폴더를 List 하는 방법은?