Dephi Functions

Here's a collection of Delphi functions I've found useful.

Network
Using the DsGetDcName function to return the name of a domain controller in a specified domain

   Determine if the computer is a member of a Domain or Workgroup - Method 1: Using NetGetJoinInformation
   Determine if the computer is a member of a Domain or Workgroup - Method 2: Using NetRenameMachineInDomain

File System
   Determine what File System a Drive is Formatted with using GetVolumeInformation
   Get the Disk Label using GetVolumeInformation using GetVolumeInformation
   Get the Size of a File

Get the Disk Label using GetVolumeInformation using GetVolumeInformation

This function will return the label of the specified drive. Pass the drive letter as input

eg: ShowMessage('The label for Drive C: is ' + GetDriveLabel('c:'));

function GetDriveLabel(sDrive : string):string;
var
    pFSBuf, pVolName : PChar;
    nVNameSer : PDWORD;
    FSSysFlags, maxCmpLen : DWord;
begin
    result:='';
    GetMem(pVolName, MAX_PATH);
    GetMem(pFSBuf, MAX_PATH);
    GetMem(nVNameSer, MAX_PATH);
    Try
      GetVolumeInformation(PChar(Copy(sDrive,1,1) + ':\'), pVolName, MAX_PATH, nVNameSer,maxCmpLen, FSSysFlags, pFSBuf, MAX_PATH);
      result:=StrPas(pVolName);
    Finally
    End;
    FreeMem(pVolName, MAX_PATH);
    FreeMem(pFSBuf, MAX_PATH);
    FreeMem(nVNameSer, MAX_PATH);
end;