Hallo Kostas,
den Typ des Laufwerks kannst du mit GetDriveType('Y:\') herausfinden.
EDIT: Den Servernamen kannst du wahrscheinlich auch über irgendwelche Network
API Funktionen ermitteln, aber es geht auch mit ein paar String-Operationen:
Delphi-Quellcode:
function ExtractServerName(
const unc:
string):
string;
begin
if AnsiStartsText('
\\',
unc)
then Result := ExtractFileName(ExtractFileDir((ExtractFileDrive(
unc))))
else Result := '
';
end;
// serverName := ExtractServerName(ExpandUNCFileName('Y:\'));
Freundliche Grüße