Ağ klasörüne bağlanma

[mrmarman]

* İstediğiniz şekildeki örnek :

function ConnectNetoworkShare( DirectoryPath: string; Username: string; Password: string; RestoreAtLogon: Boolean): DWORD;
var
  NetResource: TNetResource;
  dwFlags: DWORD;
begin
  with NetResource do
  begin
    dwType          :=  RESOURCETYPE_DISK;
    lpLocalName     :=  0;
    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;

function DisConnectNetoworkShare( DirectoryPath: string; forceDisconnect: Boolean = false): DWORD;
begin
  Result := WNetCancelConnection2( PChar(DirectoryPath), 0, forceDisconnect);
end;

// Temsili Kullanımı 

procedure TForm1.Button1Click(Sender: TObject);
begin
  if ConnectNetoworkShare( '\\192.168.0.15\D', 'loginname', 'password', False ) = 0
  then
    ShowMessage('OK')
  else
    ShowMessage('Error!');
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  if DisConnectNetoworkShare( '\\192.168.0.15\D', True ) = 0
  then
    ShowMessage('OK')
  else
    ShowMessage('Error!');
end;