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

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;
        }
    }
}

Новые блоги и статьи Все статьи Все блоги /
Отображение реквизитов в документе по условию и контроль их заполнения Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеСпецтехники", разработанного в конфигурации КА2. Данный документ берёт данные из другого нетипового документа. . .	Фото всей Земли с борта корабля Orion миссии Artemis II kumehtar 04.04.2026 Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .	Вывод диалогового окна перед закрытием, если документ не проведён Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .	Программный контроль заполнения реквизита табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать контроль заполнения реквизита "ПричинаСписания". . .
wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/	Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .	Вывод данных в справочнике через динамический список Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .	Программное заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .

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