دخول

**kachwahed**

وعليكم السلام ورحمة الله
للاستعلام عن معلومات قطاع من القرص نستخدم التابع GetVolumeInformation
عبارة Local Disk يعبر عنها Windows عندما لا يتم تسمية القرص
فإذا رأيت اسمه Local Disk يعني أن اسمه في الحقيقة هو ''
بناء على ذلك يمكن أن نكتب:

كود :
function GetVolumeName(DriveLetter: Char): string;
var
  dummy: DWORD;
  buffer: array[0..MAX_PATH] of Char;
  oldmode: LongInt;
begin
  oldmode := SetErrorMode(SEM_FAILCRITICALERRORS);
  try
    GetVolumeInformation(PChar(DriveLetter + ':\'),
                         buffer,
                         SizeOf(buffer),
                         nil,
                         dummy,
                         dummy,
                         nil,
                         0);
    if buffer = '' then Result := 'Local Disk' else
    Result := StrPas(buffer);
  finally
    SetErrorMode(oldmode);
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Caption := GetVolumeName('c');
end;

والله أعلم
بالتوفيق.

دخول
اسم المستخدم/البريد الالكتروني :
كلمة المرور :	فقدت كلمة المرور ؟
	تذكرني بالمرة القادمة