Информация о диске

Ddv122 · Регистрация: 23.12.2010

Студворк — интернет-сервис помощи студентам

C++
1
2
3
4
5
6
Size=DiskSize(3); // ïîëó÷àåì ðàçìåð âûáðàííîãî äèñêà
  FreeSpace=DiskFree(3); // ïîëó÷àåì ñâîáîäíîå ïðîñòðàíñòâî
  if(Size>0) { // åñëè ðàçìåð äèñêà íå ðàâåí 0
    Edit2->Text=IntToStr(Size/1024/1024/1024); // âûâîäèì îáùèé îáúåì äèñêà ïðîñòðàíñòâî
    Edit3->Text=IntToStr(FreeSpace/1024/1024/1024); // âûâîäèì ñâîáîäíîå ïðîñòðàíñòâî
    Edit4->Text=IntToStr((Size-FreeSpace)/1024/1024/1024); // âûâîäèì çàíÿòîå ïðîñòðàíñòâî

Использую код получения информации
Как его сделать Красивее?
Вывод инфы:
Допустим Размер диска 32 гигабайта 421 мегабайт...
(3) - нужно указывать номер диска, можно ли сделать так
В Edit1->имя диска формата A://
Он получается - 1
A:// - 1
C:// - 3
Как бы это всё автоматизировать?
Или найти другой способ получения инфы о диске

cpp_developer · 01.05.2012, 01:26

Сообщение от BRcr

Ну, хорошо, можно и рекламный памфлетик, мне импонирует изящная словесность.

Супер

. Особенно про камрада LK

. Ну и хотелось бы обратить внимание автора, что изваяние - это все же, пардон, статуя

. А слово ваять имеет отношение к творению

.

Сообщение от Samrisbe

... открываю чужой головой...

Сообщение от EdarGp

Я тоже

хорошо, что открыли мне глаза ... а я то, дурак ... больше в ваши темы - ни ногой ... исключая, конечно, репрессии

.

Ddv122 · 01.05.2012, 01:41 **[ТС]**

LK, можете подсказать...

C++
1
2
3
4
5
6
7
8
9
10
11
12
void __fastcall TForm1::WMDeviceChange( TMessage &Message ) {
  if ( Message.Msg == WM_DEVICECHANGE && Message.WParam == 0x8000 ) {
     .......................................................................................................
    if  (CheckBox1->Checked==true) {
      Button3->Click();
      Button8->Click();
      Button12->Click();
      Button7->Click();
      Button3->Click();
      Button4->Click();
    }
  {

нужно добавить ещё 1 условие.
--------------------------------------------------
1 Это работает (полный автоматический режим) если CheckBox1 стоит то....

C++
1
2
3
4
5
6
7
8
if  (CheckBox1->Checked==true) {
  Button3->Click();
  Button8->Click();
  Button12->Click();
  Button7->Click();
  Button3->Click();
  Button4->Click();
}

2Это работает (это полу-автоматический режим(по выбору пользователя)

C++
1
2
3
4
5
if ( Settings->CheckBox5->Checked ) { //если стоит галочка на  CheckBox
  Button1->Click( );  //выполняется Button
}
if ( Settings->CheckBox6->Checked ) { //если стоит галочка на  CheckBox
  Button5->Click( ); //выполняется Button

3 нужно сделать кнопку
который выполняет код но НЕ проверяет условия

C++
1
2
3
4
5
6
7
8
9
if  (CheckBox1->Checked==true) {
  Button3->Click();
  Button8->Click();
  Button12->Click();
  Button7->Click();
  Button3->Click();
  Button4->Click();
}
{

Как сделать такую кпопку?
Но при выполнении кода

C++
1
2
3
void __fastcall TForm1::WMDeviceChange( TMessage &Message ) {
  if ( Message.Msg == WM_DEVICECHANGE && Message.WParam == 0x8000 ) {
    .......................................................................................................

Она не должна выполнятся....

cpp_developer · 01.05.2012, 02:52

EdarGp, честно говоря, при всем обилии кода и просто текста, я так и не понял, что необходимо сделать.

@BRcr · 01.05.2012, 09:08

Не по теме:

Ну, пусть бы и статуя, фиг с ним - программка, положим, тоже ведь особо шевелиться не будет, торчит себе в пямяти, как памятник нерукотворный:D Да и не надо мне зубы заговаривать - в отношении производных от слова "ваять" я имею те же права на использование их в переносном значении, как и в отношении самого слова:p

EdarGp, забавный вопрос. Вам противопоказано работать по ночам, в курсе? Либо неправильно составлен вопрос, либо перед глазами уже цветные круги со звездами пляшут.

Итак, как же нам удалить условие? Использовать ли нам backspace или, может, delete?

C++
1
2
3
4
5
6
7
8
void __fastcall TForm1::Button1528Click( TObject *Sender ) {
  Button3->Click();
  Button8->Click();
  Button12->Click();
  Button7->Click();
  Button3->Click();
  Button4->Click();
}

Ddv122 · 01.05.2012, 11:08 **[ТС]**

Работает (полный автоматический режим) если CheckBox1 стоит то....
1)

C++
1
2
3
4
5
6
7
8
9
10
11
12
void __fastcall TForm1::WMDeviceChange( TMessage &Message ) {
  if ( Message.Msg == WM_DEVICECHANGE && Message.WParam == 0x8000 ) {
.......................................................................................................
Edit1->Text=disk;         //ðåçóëüòàò â Edit1
if  (CheckBox1->Checked==true) {
  Button3->Click();
  Button8->Click();
  Button12->Click();
  Button7->Click();
  Button3->Click();
  Button4->Click();
}

2)
Я добавил кнопку вызова WMDeviceChange.
И на ней нужно что бы этот код выполнялся всегда, не зависимо от CheckBox1
НО на автомате он выполнятся не должен....

@BRcr · 01.05.2012, 13:41

Сообщение от EdarGp

Я добавил кнопку вызова WMDeviceChange.
И на ней нужно что бы этот код выполнялся всегда, не зависимо от CheckBox1
НО на автомате он выполнятся не должен....

Вы совершенно безбожно коверкаете архитектуру программы. В результате получится такое нагромождение избыточных условий и связей, что черт ногу сломит в вашем коде

Но дело хозяйское... можно вот так, с флажком:

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
bool the_flag = false;
// ...
void __fastcall TForm1::Button1528Click( TObject *Sender ) { 
    TMessage m;  
    m.Msg = WM_DEVICECHANGE;
    m.WParam = 0x8000; 
    the_flag = true;
    WMDeviceChange( m );
}
// ...
void __fastcall TForm1::WMDeviceChange( TMessage &Message ) {
    if ( Message.Msg == WM_DEVICECHANGE && Message.WParam == 0x8000 ) {
        // ...
        if  ( the_flag ) {
          Button3->Click();
          Button8->Click();
          Button12->Click();
          Button7->Click();
          Button3->Click();
          Button4->Click();
          the_flag = false;
        }
    }
}

Новые блоги и статьи Все статьи Все блоги /
Nekobox - outbounds[0].transport: unknown transport type: raw damix 01.10.2026 Фикс ошибки Правым кликом по серверу -> отладочная информация -> edit Заменить "net": "raw", на "net": "tcp", Нажать кнопку reload.	Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .	Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .
Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .	Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .	Программа опроса у.з. расходомера SLS-720F Argus19 02.09.2026 Программа опроса у. з. расходомера SLS-720F Программа опрашивает один раз в минуту три ультразвуковых расходомера SLS-720F через интерфейс RS-485 по протоколу Modbus RTU. Опрашиваются регистры. . .	Hyper-V: Компьютер должен поддерживать доверенный платформенный модуль 2.0. Maks 31.08.2026 При установке Windows 11 на виртуальную машину Hyper-V 2-го поколения вылезла такая ошибка: Решение: в параметрах виртуальной машины, в разделе "Безопасность" (Security) активировать флаг. . .

cpp_developer 20124 / 5691 / 417 Регистрация: 09.04.2010 Сообщений: 22,546 Записей в блоге: 1
	01.05.2012, 02:52
	EdarGp, честно говоря, при всем обилии кода и просто текста, я так и не понял, что необходимо сделать. 0