강가딘 wrote:
> WindowNT 네트워크 서버가 10개 있습니다.
>
> ID:Next123
> PW:N123
> 입니다.
>
> 근데 Network상에서 접속을 할려면 내 컴의 ID와 PW를 서버와 같게 하던지 아니면 전부다 일일이 로긴 해줘야 합니다.
> 저야 괜찮지만 다른 컴퓨터까지 일일이 하기가 좀 그렇습니다.
>
> WindowNT서버 10대를 로그인 한걸로 하게 할려고 하는데
> 방법을 모르겠어요.
>
> 어케해서 다음 팁은 찾았는데
> 로긴이 잘 되긴 한데.. 서버 하나밖에 안되더라구요..!
> 1개 이상(10개) 할려면 어케 해야되는지 좀 갈켜주세요..!
> 내일 까진데.. 저 잠못자여 ㅠ.ㅠ
> //--------------------------------------------------------------------------------
> 프로그램상에서 Network Drive를 연결
>
> procedure TForm1.Button1Click(Sender: TObject);
> var
> NRW: TNetResource;
> begin
> with NRW do
> begin
> dwType := RESOURCETYPE_ANY;
> lpLocalName := 'X:'; // map to this driver letter
> lpRemoteName := '\\MyServer\MyDirectory';
> // Must be filled in. If an empty string is used,
> // it will use the lpRemoteName.
> lpProvider := '';
> end;
> WNetAddConnection2(NRW, 'MyPassword', 'MyUserName',,$s:LF> CONNECT_UPDATE_PROFILE);
> end;
> //------------------------------------------------------------------
>
>
더 좋은 방법도 있을법 한데.. 급하기도 하고 그냥 어케 했습니다.
이건 각 폴더를 잡아 주더라구요.(안잡아 주는 방법도 있을법한데)....
고수님들 보고 혹시 더 좋은 방법있음 갈켜주세요~~~


procedure TForm1.TRMConnect(TRMName:string;Num:integer);
var
Action: TCloseAction;
NRW: TNetResource;
begin
with NRW do
begin
dwType := RESOURCETYPE_ANY;
Case Num of
1 : lpLocalName := 'H:';
2 : lpLocalName := 'I:';
3 : lpLocalName := 'J:';
4 : lpLocalName := 'K:';
5 : lpLocalName := 'L:';
6 : lpLocalName := 'M:';
7 : lpLocalName := 'N:';
8 : lpLocalName := 'O:';
9 : lpLocalName := 'P:';
10 : lpLocalName := 'Q:';
11 : lpLocalName := 'R:';
12 : lpLocalName := 'S:';
13 : lpLocalName := 'T:';
14 : lpLocalName := 'U:';
15 : lpLocalName := 'V:';
16 : lpLocalName := 'W:';
17 : lpLocalName := 'Y:';
end;
lpRemoteName := PChar(TRMName);
//showmessage(string(lpRemoteName));
// Must be filled in. If an empty string is used,
// it will use the lpRemoteName.
lpProvider := '';
end;
WNetAddConnection2(NRW,'Admin','Administrator',CONNECT_UPDATE_PROFILE);
// WNetAddConnection(NRW,
// Action := CaFree;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
Cfg_Text : TextFile;
i:integer;
ExePath, FindTRM, buf, Dir, TRMName,srcn,destn: string;
FoundTRM : PChar;
begin
ExePath := ExtractFilePath(Application.ExeName);//실행디렉토리
Dir:=ExePath+'cfg\';
if DirectoryExists(Dir) then begin //CFG 디렉토리확인
AssignFile(Cfg_Text,ExePath+'cfg\Address.cfg');
Reset(Cfg_Text);
FindTRM := '[Address]';
While Not EOF(Cfg_Text) do begin
Readln(Cfg_Text,buf);
FoundTRM := strpos(PChar(buf),PChar(FindTRM));
if FoundTRM <> nil then begin
for i := 1 to 17 do begin
Readln(Cfg_Text,buf);
TRMName:=buf+#0;
TRMConnect(TRMName,i);
end; //for ..i
end;// if _ nil
end;//While
CloseFile(Cfg_Text);
end else
showmessage('CFG 디렉토리를 확인하세요.!');
showmessage('끝.!');
end;