+- Parsi Coders (http://parsicoders.com)
+-- انجمن: Software Development Programming (http://parsicoders.com/forumdisplay.php?fid=37)
+--- انجمن: Pascal/Delphi (http://parsicoders.com/forumdisplay.php?fid=45)
+---- انجمن: Delphi (http://parsicoders.com/forumdisplay.php?fid=69)
+---- موضوع: سورس کد بدست اوردن سریال درایور (دلفی) (/showthread.php?tid=2163)
سورس کد بدست اوردن سریال درایور (دلفی) - Amin_Mansouri - 04-23-2012
با سورس زیر که با زبان دلفی نوشته شده است میتونید سریال درایور مورد نظرتون رو بدیست بیارید برای استفاده از تابع زیر نیاز به استفاده از یونیت windows هست.
کد:
function HardDiskSerial(const Drive: string): Windows.DWORD;
var
Unused: Windows.DWORD; // unused parameters
PrevErrorMode: Windows.UINT; // stores Windows error mode
begin
// Inhibit system dialog appearing on error
PrevErrorMode := Windows.SetErrorMode(
Windows.SEM_FAILCRITICALERRORS
);
try
Result := 0;
Windows.GetVolumeInformation(
PChar(Drive), nil, 0, @Result, Unused, Unused, nil, 0
);
finally
// Restore old error mode
Windows.SetErrorMode(PrevErrorMode);
end;
end;