비가 오네여~~ %^.^%



부족하나마 몇자 적어보겠습니다...^^



디렉토리 공유는 검색해보시면 많은 자료들이 나오는데..

암튼 제가 테스트해 본 소스를 통째로 올려 보겠습당~~!!

저도 어디서 찾아서 했던겁니다..~~!!

첨에 찾았던거는 95에서만 되고 98/ME에서는 안되더군요~~!!

그래서 Delphi Help보고 API를 바꾸니까 잘되군요~!



참고:

NT는 잘 모르겠고 2000에서는 DLL을 찾을수 없다는 에러 메세지가...

95/98/ME 에서는 잘 돌아가더군요...

탐색기에서는 공유되었는데 나타나지 않는 경우도 있습니다..

확인 할려면 시작-실행 '자기컴명공유명'을 치면 올라올겁니다.



아래소스 참고



unit Unit1;



interface



uses

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

StdCtrls;



type

TForm1 = class(TForm)

Button1: TButton;

Button2: TButton;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;



// 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;

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;



var

Form1: TForm1;



implementation



{$R *.DFM}



function NetShareAdd(ServerName: PChar; ShareLevel: SmallInt; Buffer: Pointer;

Size: Word): Integer; stdcall; external 'SVRAPI.DLL';



function NetShareDel(ServerName: PChar; NetName: PChar;

Reserved: Word): Integer; stdcall; external 'SVRAPI.DLL';



function ShareResource(ServerName: PChar; FilePath: PChar; NetName: PChar; Remark: PChar;

ShareType: Byte; Flags: Word; RWPass: PChar; ROPass: PChar): Integer;

var

MyShare: Share_Info50;

PMyShare: ^Share_Info50;

begin

strLcopy(MyShare.shi50_netname, NetName, 13);

MyShare.shi50_type := ShareType;

MyShare.shi50_flags := Flags;

MyShare.shi50_remark := Remark;

MyShare.shi50_path := FilePath;

strLcopy(MyShare.shi50_rw_password, RWPass, 9);

strLcopy(MyShare.shi50_ro_password, ROPass, 9);

PMyShare := @MyShare;



Result := NetShareAdd(ServerName, 50, PMyShare, SizeOf(MyShare));

end;



function DeleteShare(ServerName: PChar; NetName: PChar): Integer;

begin

Result := NetShareDel(ServerName,NetName, 0);

end;



procedure TForm1.Button1Click(Sender: TObject);

var

rt: Integer;

begin

rt := ShareResource(nil, // 컴퓨터 이름 (nil 은 Local Machine을 의미합니다)

'C:WINDOWS', // 공유할 폴더 (전부 대문자로 지정)

'TEST$', // 공유이름

'공유예제', // 설명

0, // 0=디렉토리 공유, 1=프린터 공유

// 256 or 1= 읽기 전용, 256 or 2=읽기/쓰기, 256 or 1 or 2=암호에 따라 다름

256 or 1 or 2,

'1111', // 읽기/쓰기 암호

'2222'); // 읽기 전용 암호



if rt = 0 then ShowMessage('폴더가 공유되었습니다')

else ShowMessage('폴더를 공유할 수 없습니다. 에러번호('+IntToStr(rt)+')');

end;



procedure TForm1.Button2Click(Sender: TObject);

var

rt: Integer;

begin

rt := DeleteShare(nil, 'DB$');



if rt = 0 then ShowMessage('폴더의 공유를 해제하였습니다')

else ShowMessage('폴더의 공유를 해제할 수 없습니다. 에러번호('+IntToStr(rt)+')');

end;



end.







정준길 wrote:

> 지금 제가 하려는 것은 자신의 PC 특정 Directory를 공유를 할려고 합니다

> 그렇게 되면 Lan으로 연결된 다른 PC에서 제가 공유를 걸어 놓은 File을 복사해 갈수 있겠지요

> 물론 네트워 드라이브는 잡을 필요도 없구요

> 혹시 자신의 Directory를 공유하는 방법(마치 탐색기에서 Directory를 선택하고 마우스 오른쪽 버튼을 눌러 공유항목을 선택하는 것 처럼...)

> 아시는 분은 알려 주시면 감사 하겠습니다

> 부탁드립니다

정말 고맙습니다

아주 많은 도움이 되었습니다

감사합니다

손용석 wrote:

> 비가 오네여~~ %^.^%

>

> 부족하나마 몇자 적어보겠습니다...^^

>

> 디렉토리 공유는 검색해보시면 많은 자료들이 나오는데..

> 암튼 제가 테스트해 본 소스를 통째로 올려 보겠습당~~!!

> 저도 어디서 찾아서 했던겁니다..~~!!

> 첨에 찾았던거는 95에서만 되고 98/ME에서는 안되더군요~~!!

> 그래서 Delphi Help보고 API를 바꾸니까 잘되군요~!

>

> 참고:

> NT는 잘 모르겠고 2000에서는 DLL을 찾을수 없다는 에러 메세지가...

> 95/98/ME 에서는 잘 돌아가더군요...

> 탐색기에서는 공유되었는데 나타나지 않는 경우도 있습니다..

> 확인 할려면 시작-실행 '자기컴명공유명'을 치면 올라올겁니다.

>

> 아래소스 참고

>

> unit Unit1;

>

> interface

>

> uses

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

> StdCtrls;

>

> type

> TForm1 = class(TForm)

> Button1: TButton;

> Button2: TButton;

> procedure Button1Click(Sender: TObject);

> procedure Button2Click(Sender: TObject);

> private

> { Private declarations }

> public

> { Public declarations }

> end;

>

> // 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;

> 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;

>

> var

> Form1: TForm1;

>

> implementation

>

> {$R *.DFM}

>

> function NetShareAdd(ServerName: PChar; ShareLevel: SmallInt; Buffer: Pointer;

> Size: Word): Integer; stdcall; external 'SVRAPI.DLL';

>

> function NetShareDel(ServerName: PChar; NetName: PChar;

> Reserved: Word): Integer; stdcall; external 'SVRAPI.DLL';

>

> function ShareResource(ServerName: PChar; FilePath: PChar; NetName: PChar; Remark: PChar;

> ShareType: Byte; Flags: Word; RWPass: PChar; ROPass: PChar): Integer;

> var

> MyShare: Share_Info50;

> PMyShare: ^Share_Info50;

> begin

> strLcopy(MyShare.shi50_netname, NetName, 13);

> MyShare.shi50_type := ShareType;

> MyShare.shi50_flags := Flags;

> MyShare.shi50_remark := Remark;

> MyShare.shi50_path := FilePath;

> strLcopy(MyShare.shi50_rw_password, RWPass, 9);

> strLcopy(MyShare.shi50_ro_password, ROPass, 9);

> PMyShare := @MyShare;

>

> Result := NetShareAdd(ServerName, 50, PMyShare, SizeOf(MyShare));

> end;

>

> function DeleteShare(ServerName: PChar; NetName: PChar): Integer;

> begin

> Result := NetShareDel(ServerName,NetName, 0);

> end;

>

> procedure TForm1.Button1Click(Sender: TObject);

> var

> rt: Integer;

> begin

> rt := ShareResource(nil, // 컴퓨터 이름 (nil 은 Local Machine을 의미합니다)

> 'C:WINDOWS', // 공유할 폴더 (전부 대문자로 지정)

> 'TEST$', // 공유이름

> '공유예제', // 설명

> 0, // 0=디렉토리 공유, 1=프린터 공유

> // 256 or 1= 읽기 전용, 256 or 2=읽기/쓰기, 256 or 1 or 2=암호에 따라 다름

> 256 or 1 or 2,

> '1111', // 읽기/쓰기 암호

> '2222'); // 읽기 전용 암호

>

> if rt = 0 then ShowMessage('폴더가 공유되었습니다')

> else ShowMessage('폴더를 공유할 수 없습니다. 에러번호('+IntToStr(rt)+')');

> end;

>

> procedure TForm1.Button2Click(Sender: TObject);

> var

> rt: Integer;

> begin

> rt := DeleteShare(nil, 'DB$');

>

> if rt = 0 then ShowMessage('폴더의 공유를 해제하였습니다')

> else ShowMessage('폴더의 공유를 해제할 수 없습니다. 에러번호('+IntToStr(rt)+')');

> end;

>

> end.

>

>

>

> 정준길 wrote:

> > 지금 제가 하려는 것은 자신의 PC 특정 Directory를 공유를 할려고 합니다

> > 그렇게 되면 Lan으로 연결된 다른 PC에서 제가 공유를 걸어 놓은 File을 복사해 갈수 있겠지요

> > 물론 네트워 드라이브는 잡을 필요도 없구요

> > 혹시 자신의 Directory를 공유하는 방법(마치 탐색기에서 Directory를 선택하고 마우스 오른쪽 버튼을 눌러 공유항목을 선택하는 것 처럼...)

> > 아시는 분은 알려 주시면 감사 하겠습니다

> > 부탁드립니다