|
|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail | |||||||
| Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
||||
 |
|
|
Опции темы | Поиск в этой теме |
08.01.2008, 21:41
|
#1 |
|
Новичок
Джуниор
Регистрация: 22.12.2007
Сообщений: 204
|
Привязка
как сделать в прогу привязку к железу не через сервер вс клиент а именно в прогу влить!чтобы прога пахала тока на маём компе!
Последний раз редактировалось ben95; 08.01.2008 в 22:15. |
|
|
|
08.01.2008, 22:48
|
#2 |
|
Участник клуба
Регистрация: 28.11.2007
Сообщений: 1,521
|
Можеш её привязать к серийному номеру венчестера. Для простоты определения инфы можеш использовать компонент HDDInfo.
Всегда рад помочь!
Последний раз редактировалось Terran; 08.01.2008 в 22:50. |
|
|
|
|
08.01.2008, 22:53
|
#3 |
|
Участник клуба
Регистрация: 28.11.2007
Сообщений: 1,521
|
begin
S:=GetDisks(DiskHDD); SOut:=''; For I:=1 To Length(S) Do Begin If GetHDDInfo(S[I], VolumeName, FileSystemName, VolumeSerialNo, MaxComponentLength, FileSystemFlags) Then SOut:=SOut+ 'Диск: '+S[I]+#13#10+ 'Метка: '+VolumeName+#13#10+ 'Файловая система: '+FileSystemName+#13+#10+ 'Серийный номер: '+IntToHex(VolumeSerialNo,8)+#13+#1 0+ 'Макс. длина имени файла: '+IntToStr(MaxComponentLength)+#13+ #10+ 'Flags: '+IntToHex(FileSystemFlags,4)+#13#1 0+#13#10; End; label1.caption:=(SOut); End; Вложение 2284
Всегда рад помочь!
Последний раз редактировалось Terran; 30.11.2008 в 14:15. |
|
|
|
|
Похожие темы
|
||||
| Тема | Автор | Раздел | Ответов | Последнее сообщение |
| Привязка макроса к кнопке | VisuaL | Microsoft Office Excel | 7 | 10.05.2008 07:04 |
| Привязка Google Карт | Xander | Фриланс | 4 | 13.02.2008 13:21 |
| привязка к железу | Эль | Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM | 0 | 26.09.2007 20:10 |
| Привязка к ComboBox | Daemon | Компоненты Delphi | 1 | 18.11.2006 22:46 |
