네트웍 드라이브를 연결하는 프로그램을 구현하려고 합니다.
Windows2000, XP에서는 잘되는데...
Win98에서는 안됩니다.
Win98은 무언가 다른 이유가 있는지요???
Win98에서 리눅스 삼바 서버로 접속하는 것입니다.
이방법으로 하면 Win2000,XP에서 데이콤 웹하드에 접속이 가능합니다.
하지만, Win98에서는 접속이 안됩니다.
방법을 아시면 좀 알려 주셔요...

procedure TForm1.Button2Click(Sender: TObject);
var
NetR : NETRESOURCE;
Result : DWORD;
imsi : String;
AccessNameSize : DWORD;
ConInfo, lResult : DWORD;
begin
  NetR.lpRemoteName := Pchar(GlobalAlloc(GPTR, 256));

  NetR.dwType := RESOURCETYPE_DISK;
  NetR.lpLocalName := NIL;
  NetR.lpProvider := NIL;
  imsi := '\네트워크 컴퓨터 이름접근하고자하는폴더';
  NetR.lpLocalName := 'Z:';
  NetR.lpRemoteName  := Pchar(imsi);

  NetR.dwScope       := RESOURCE_GLOBALNET;
  NetR.dwType        := RESOURCETYPE_DISK;
  NetR.dwDisplayType := RESOURCEDISPLAYTYPE_SHARE;
  NetR.dwUsage       := RESOURCEUSAGE_CONNECTABLE;

  Result := WNetAddConnection2(NetR, 'password', 'user ID', CONNECT_UPDATE_PROFILE);


  CASE Result of
    ERROR_ACCESS_DENIED : ShowMessage ( 'Access denied.' );
    ERROR_ALREADY_ASSIGNED : ShowMessage ( 'Drive is already connected.' );
    ERROR_BAD_DEV_TYPE : ShowMessage ( 'Uncompatible dispositive.' );
    ERROR_BAD_DEVICE : ShowMessage ( 'Invalid Letter.' );
    ERROR_BAD_NET_NAME : ShowMessage ( 'Server name is not valid or can''t befound' );
    ERROR_BAD_PROFILE : ShowMessage ( 'Incorrect Parameters.' );
    ERROR_CANNOT_OPEN_PROFILE : ShowMessage ( 'Permanent conection is not allowed' );
    ERROR_DEVICE_ALREADY_REMEMBERED : ShowMessage ( 'User entry is already on the user profile.' );
    ERROR_EXTENDED_ERROR : ShowMessage ( 'Network error.' );
    ERROR_INVALID_PASSWORD : ShowMessage ( 'Wrong Password.' );
    ERROR_NO_NET_OR_BAD_PATH : ShowMessage ( 'The operation couldn''t be finished because the network or folder is unvailable.' );
    ERROR_NO_NETWORK : ShowMessage ( 'Network is unvailable.' );
  else if Result > 0 then
    ShowMessage (IntToStr(Result));
  end;

end;