Ik heb een kleine file synchroniseer service, en die gebruikt dit om een drive te mappen:
Delphi Code:
function MakeDriveMapping(DriveLetter: string; DirectoryPath: string;
Username: string; Password: string; RestoreAtLogon: Boolean): DWORD;
var
NetResource: TNetResource;
dwFlags: DWORD;
begin
with NetResource do
begin
dwType := RESOURCETYPE_DISK;
lpLocalName := PChar(DriveLetter);
lpRemoteName := PChar(DirectoryPath);
lpProvider := nil;
end;
if (RestoreAtLogon) then
dwFlags := CONNECT_UPDATE_PROFILE
else
dwFlags := 0;
Result := WNetAddConnection2(NetResource, PChar(Password),
PChar(Username), dwFlags);
end;
Tis een tikje antiek, maar misschien zet het je op het goede pad.
Bookmarks