[Rokuell]

DLL:

Код:

library HDDSNDLL;

uses
  Windows,
  Classes;

{$R *.res}

function GetHDDSerial(out SN:DWORD):Boolean;
var
 a,b:Dword;
 buffer:array [0..255] of char;
begin
 Result := getVolumeInformation('d:\',buffer,sizeof(buffer),@SN,a,b,nil,0);
end;

exports  GetHDDSerial name 'GetHDDSerial';

begin
end.

В программе до implementation пиши:

Код:

function GetHDDSerial(out SN:DWORD):Boolean; external 'HDDSNDLL.dll' name 'GetHDDSerial';

Вызов:

Код:

var N:DWORD;
begin
 if  GetHDDSerial(N) then ShowMessage(IntToStr(N));
end;

Запись в файл, думаю, напишешь сам.