Mega Code Archive
Sunucu üzerinde paylaşılan dizini uygulama ile map etmek, kalıcı olmasını sağlamak
<![CDATA[
uses ShellApi;
procedure MapDrive(Drive: string; const ServerName, ShareName: string);
var
NETW:TNETRESOURCE;
begin
NETW.dwScope := RESOURCE_CONNECTED;
NETW.dwUsage := RESOURCEUSAGE_CONNECTABLE;
NETW.dwType := RESOURCETYPE_DISK;
NETW.lpLocalName:= PChar(Drive);
NETW.lpRemoteName:=Pchar('\\' + ServerName + '\' + ShareName);
NETW.lpComment:='';
NETW.lpProvider:=nil;
if wnetaddconnection2(NETW,nil,nil,CONNECT_UPDATE_PROFILE) <> 0 then
raise Exception.Create('Server bağlantı hatası: ' + SysErrorMessage(GetLastError));
end;
// Kullanımı
MapDrive('g:', 'SUNUCUADI', 'KLASOR');
]]>