Отправляет email-рассылки с помощью сервиса Sendsay

Программирование. Форум !!!

серийник дискетки

Приветствую девелоперы!

вопрос такой, знает ли кто-нить как можно узнать серийниr дискеты в дельфях?

С уважением, Журбин Сергей.
Номер выпуска : 1737
Возраст листа : 137
Количество подписчиков : 375
Адрес в архиве : http://subscribe.ru/archive/comp.soft.prog.prog/msg/71906
Получить правила : mailto:comp.soft.prog.prog-rules@subscribe.ru
Формат "дайджест" : mailto:comp.soft.prog.prog-digest@subscribe.ru
Формат "каждое письмо" : mailto:comp.soft.prog.prog-normal@subscribe.ru
Формат "читать с веба" : mailto:comp.soft.prog.prog-webonly@subscribe.ru

-*Информационный канал Subscribe.Ru
Написать в лист: mailto:comp.soft.prog.prog-list@subscribe.ru
Отписаться: mailto:comp.soft.prog.prog--unsub@subscribe.ru

http://subscribe.ru/ mailto:ask@subscribe.ru

Ответить   Thu, 05 Feb 2004 10:55:17 +1000 (#71906)

 

Ответы:

Да также, как и о других:
Function GetHDDInfo(Disk : Char;Var VolumeName, FileSystemName : String;
Var VolumeSerialNo, MaxComponentLength, FileSystemFlags:LongWord) : Boolean;

Var
_VolumeName,_FileSystemName:array [0..MAX_PATH-1] of Char;
_VolumeSerialNo,_MaxComponentLength,_FileSystemFlags:LongWord;

Begin
if GetVolumeInformation(PChar(Disk+':\'),_VolumeName,MAX_PATH,@_VolumeSerialNo,

_MaxComponentLength,_FileSystemFlags,_FileSystemName,MAX_PATH) then
Begin
VolumeName:=_VolumeName;
VolumeSerialNo:=_VolumeSerialNo;
MaxComponentLength:=_MaxComponentLength;
FileSystemFlags:=_FileSystemFlags;
FileSystemName:=_FileSystemName;
Result:=True;
End
else
Result:=False;
End;
С уважением,
Борис Сурин, surin_***@m*****.ru

Номер выпуска : 1743
Возраст листа : 137
Количество подписчиков : 375
Адрес в архиве : http://subscribe.ru/archive/comp.soft.prog.prog/msg/72068
Получить правила : mailto:comp.soft.prog.prog-rules@subscribe.ru
Формат "дайджест" : mailto:comp.soft.prog.prog-digest@subscribe.ru
Формат "каждое письмо" : mailto:comp.soft.prog.prog-normal@subscribe.ru
Формат "читать с веба" : mailto:comp.soft.prog.prog-webonly@subscribe.ru

-*Информационный канал Subscribe.Ru
Написать в лист: mailto:comp.soft.prog.prog-list@subscribe.ru
Отписаться: mailto:comp.soft.prog.prog--unsub@subscribe.ru

http://subscribe.ru/ mailto:ask@subscribe.ru

Ответить   Thu, 5 Feb 2004 10:19:38 +0300 (#72068)

 

Приветствую девелоперы!

Surin_bp пишет:

Секс те огромный Борис.

С уважением, Журбин Сергей.
Номер выпуска : 1746
Возраст листа : 137
Количество подписчиков : 375
Адрес в архиве : http://subscribe.ru/archive/comp.soft.prog.prog/msg/72113
Получить правила : mailto:comp.soft.prog.prog-rules@subscribe.ru
Формат "дайджест" : mailto:comp.soft.prog.prog-digest@subscribe.ru
Формат "каждое письмо" : mailto:comp.soft.prog.prog-normal@subscribe.ru
Формат "читать с веба" : mailto:comp.soft.prog.prog-webonly@subscribe.ru

-*Информационный канал Subscribe.Ru
Написать в лист: mailto:comp.soft.prog.prog-list@subscribe.ru
Отписаться: mailto:comp.soft.prog.prog--unsub@subscribe.ru

http://subscribe.ru/ mailto:ask@subscribe.ru

Ответить   Thu, 05 Feb 2004 17:45:07 +1000 (#72113)

 

:)) - Слов нет!
С уважением,
Борис Сурин, surin_***@m*****.ru

Номер выпуска : 1747
Возраст листа : 137
Количество подписчиков : 375
Адрес в архиве : http://subscribe.ru/archive/comp.soft.prog.prog/msg/72185
Получить правила : mailto:comp.soft.prog.prog-rules@subscribe.ru
Формат "дайджест" : mailto:comp.soft.prog.prog-digest@subscribe.ru
Формат "каждое письмо" : mailto:comp.soft.prog.prog-normal@subscribe.ru
Формат "читать с веба" : mailto:comp.soft.prog.prog-webonly@subscribe.ru

-*Информационный канал Subscribe.Ru
Написать в лист: mailto:comp.soft.prog.prog-list@subscribe.ru
Отписаться: mailto:comp.soft.prog.prog--unsub@subscribe.ru

http://subscribe.ru/ mailto:ask@subscribe.ru

Ответить   Thu, 5 Feb 2004 12:33:45 +0300 (#72185)