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

СообЧА. Программирование на Delphi


Служба Рассылок Subscribe.Ru проекта Citycat.Ru


 

Мир Delphi

Pixelsoftware***

  Спецвыпуск-объявление 
   

.::::: СообЧа - Программирование на Delphi :::::.

СооБЧение для подписчиков :)

  ї 2000 - 2001COOLer  Дизайн: Yoghurt 
   
НА МОЕМ САЙТЕ НОВЫЕ ПРОГРАММЫ (ВСЕ FREE) 
Рассылки Subscribe.Ru
СообЧа (СООБщество ЧАйников). Обмен опытом, вопросы, ответы.


 Назад к оглавлению  
  
  Внимание ОШИБКА в КОДЕ! 
 
  

 .....начало статьи про винчестер

 

procedure TForm1.Button1Click(Sender: TObject);

var VolumeName, FileSystemName : array [0..MAX_PATH-1] of Char;

 VolumeSerialNo : DWord; 

MaxComponentLength, FileSystemFlags : Integer; <<<!!!пишите DWORD

begin 

GetVolumeInformation('C:\',VolumeName,MAX_PATH,@VolumeSerialNo, MaxComponentLength,FileSystemFlags, FileSystemName,MAX_PATH);

Memo1.Lines.Add('VName = '+VolumeName);

Memo1.Lines.Add('SerialNo = $'+IntToHex(VolumeSerialNo,8));

Memo1.Lines.Add('CompLen = '+IntToStr(MaxComponentLength)); 

Memo1.Lines.Add('Flags = $'+IntToHex(FileSystemFlags,4));

 Memo1.Lines.Add('FSName = '+FileSystemName);

 end;

.... конец статьи про винчестер

pixel@novgorod.net http://pixelsoft.narod.ru ***)
ї COOLer


Zaluskiy Anton(COOLer)    - ведущий проекта    "Мир Delphi"



о3он TopList


http://subscribe.ru/
E-mail: ask@subscribe.ru
Отписаться
Убрать рекламу
Рейтингуется SpyLog

В избранное