[moo2k]

Привет всем. У меня возникла проблема.
Мне нужно:
1) создать dll и в этой DLL процедуру определения серийного номера HDD;
2) вызвав с dll данную функцию вывести ее результат в файл .txt

Пытался сделать сам не получилось , искал в инете примеры работы с DLL дам там все поверхностно. Буду очень благодарен за помощь.
P.S. Раньше с DLL никогда не работал, так что извините если вопрос идиотский.

[Yurk@]

Вот есть примерчик (правда на С++)
http://www.sources.ru/pascal/disks/hdd_num.zip

[Yurk@]

А вот еще одна процедурка:

Код:

 procedure TForm1.Button1Click(Sender: TObject);
var
SerialNum:Pdword;
a,b:Dword;
buffer:array [0..255] of char;
begin
new(SerialNum);
if getVolumeInformation('d:\',buffer,sizeof(buffer),SerialNum,a,b,nil,0) then
Label1.Caption:=IntToStr(SerialNum^);
Dispose(SerialNum);
end; 

[The Shadow]

Вот тут про Dll

[moo2k]

Yurk@, я об этом методе определения S/N HDD уже знал.
The Shadow, спасибо, но я это уже находил в интернете.
Я не могу составить программу у меня выводит S/N в виде абдакадабры.
Кто-нибудь может составить программу именно с пунктами, что выше. Очень надо. Или мне выложить исходники того, что я уже сделал?

[Yurk@]

Давай исходный код! Посмотрим, что можно сделать