1차 질문을하여 답을 얻었습니다.
감사드립니다..
그럼 다시한번 질문을.. ㅠㅠ;; 죄송합니다..
shelllist에서 암호가 걸린 pc의 특정폴더를 보여줄려면 어찌해야하는지요..
shelllist 경로에 pc의 특정폴더..
\\127.0.0.1\abc 이렇게 설정해주었습니다.
abc 폴더는 공유되어있는 상태구요..
그런데 문제는 그 pc가 암호가 걸려있다는겁니다 ㅠㅠ;;
그럼 코딩에서 shelllist의 경로설정을 해주기전에
그 암호걸린 pc의 계정과 암호를 처리(?) 해주고
경로설정하여 보여주게 할수있는지요 ㅠㅠ;;;
제발.. 된다고 말씀해주시면 감사하겠습니다 ㅠㅠ;;
간단한 설명이라도.. ㅠㅠ;;
그럼 새해 복 많이 받으시구요~ 건강하시고~ 대박나세요~ ^^
const
SRemotePath = '\\192.168.10.2\abc'; // 공유폴더 Path
SUserID = 'administrator'; // 사용자계정
SPassword = '1234'; // 암호
var
pcRemotePath, pcUserID, pcPassword: PChar;
NetResource: TNetResource;
begin
// 공유폴더 접속
GetMem(pcRemotePath, Length(SRemotePath) + 1);
GetMem(pcUserID, Length(SUserID) + 1);
GetMem(pcPassword, Length(SPassword) + 1);
StrPCopy(pcRemotePath, SRemotePath);
StrPCopy(pcUserID, SUserID);
StrPCopy(pcPassword, SPassword);
try
NetResource.dwScope := RESOURCE_CONNECTED;
NetResource.dwType := RESOURCETYPE_DISK;
NetResource.dwDisplayType := RESOURCEDISPLAYTYPE_SHARE;
NetResource.dwUsage := RESOURCEUSAGE_CONNECTABLE;
NetResource.lpLocalName := '';
NetResource.lpRemoteName := pcRemotePath;
NetResource.lpComment := '';
NetResource.lpProvider := '';
WNetAddConnection2(NetResource, pcPassword, pcUserID, CONNECT_INTERACTIVE);
finally
FreeMem(pcRemotePath);
FreeMem(pcUserID);
FreeMem(pcPassword);
end;
// 쉘리스트 경로 설정
ShellListView1.Root := SRemotePath;
end;