Delphi. Программа, которая использует системные функции для получения информации о файловой системе - Помощь студентам - Страница 2

metamfetamin · 08.11.2007, 10:01

Не подскажите в чем может быть соль.
Зделал форму повставлял на нее соответствующие елементы:
ListBox1: TListBox;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
И в окне tlistbox у меня отображаются только диски моего компьютера (как в файле.......хотя должно отображатся как видно в литинге еще их номера и типы, название файловой системы, длину имени файла). Может ето я что то не то намутил???????

AlDelta · 08.11.2007, 10:19

У тебя полностью рабочий код, все отображается как нужно и где нужно.
Как видно в листинге описание записывается в Label, а не в tlistbox!

Код:

procedure TForm1.ListBox1Click(Sender: TObject);
var
Drive:byte;
begin
with ListBox1 do drive:= ord(Items[ItemIndex][1])-$41;
Label1.Caption:='Номер устройства = ' + intToStr(drive);
Label2.Caption:=CheckDriveType(Drive);
Label3.Caption:='Название файловой системы - ' + GetFileSysName(Drive);
Label4.Caption:='Длина имени файла = ' + IntToStr(GetFileSysLen(Drive));
end;

metamfetamin · 08.11.2007, 10:32

Цитата:

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

У тебя полностью рабочий код, все отображается как нужно и где нужно.
Как видно в листинге описание записывается в Label, а не в tlistbox!

Код:

procedure TForm1.ListBox1Click(Sender: TObject);
var
Drive:byte;
begin
with ListBox1 do drive:= ord(Items[ItemIndex][1])-$41;
Label1.Caption:='Номер устройства = ' + intToStr(drive);
Label2.Caption:=CheckDriveType(Drive);
Label3.Caption:='Название файловой системы - ' + GetFileSysName(Drive);
Label4.Caption:='Длина имени файла = ' + IntToStr(GetFileSysLen(Drive));
end;

А можеш выложить картинку, как у тебя отображается вся ета лабуда???????

AlDelta · 08.11.2007, 10:48

Смотри. Код взят с твоего первого поста.
test.gif

metamfetamin · 08.11.2007, 10:55

А у меня выводит только список дисков!!!! Незнаеш почему у меня когда я клацаю на каком то диске не выводится инфа в Label ??????

AlDelta · 08.11.2007, 11:03

Выбираешь свой ListBox1. В Object Ispector на закладке Events в поле для OnClick делаешь двойной клик левой кнопкой мыши. Все.

P.S.: Взял бы хоть что-нибудь почитать по Делфи. Здесь хорошая подборка книг: http://www.programmersclub.ru/book

metamfetamin · 08.11.2007, 13:24

Спасиба огромное!!!!! Обязательно почитаю!!!!

Все больше по этому вопросу беспокоить не буду!!!!!!!!!

08.11.2007, 10:19	#12
AlDelta Реанимируюсь... Участник клуба Регистрация: 19.07.2007 Сообщений: 1,445	У тебя полностью рабочий код, все отображается как нужно и где нужно. Как видно в листинге описание записывается в Label, а не в tlistbox! Код: `procedure TForm1.ListBox1Click(Sender: TObject); var Drive:byte; begin with ListBox1 do drive:= ord(Items[ItemIndex][1])-$41; Label1.Caption:='Номер устройства = ' + intToStr(drive); Label2.Caption:=CheckDriveType(Drive); Label3.Caption:='Название файловой системы - ' + GetFileSysName(Drive); Label4.Caption:='Длина имени файла = ' + IntToStr(GetFileSysLen(Drive)); end;` Пишите код так, как будто сопровождать его будет склонный к насилию психопат, который знает, где вы живёте. Правила форума => Правила раздела => Для общего развития => Помощь студентам => Перед тем, как создавать тему, скачайте себе... P.S.: форум не песочница (с) название статьи на сайте MS: "Отмена принудительного отключения автоматического запуска в реестре Windows"

08.11.2007, 10:48	#14
AlDelta Реанимируюсь... Участник клуба Регистрация: 19.07.2007 Сообщений: 1,445	Смотри. Код взят с твоего первого поста. test.gif Пишите код так, как будто сопровождать его будет склонный к насилию психопат, который знает, где вы живёте. Правила форума => Правила раздела => Для общего развития => Помощь студентам => Перед тем, как создавать тему, скачайте себе... P.S.: форум не песочница (с) название статьи на сайте MS: "Отмена принудительного отключения автоматического запуска в реестре Windows"

08.11.2007, 11:03	#16
AlDelta Реанимируюсь... Участник клуба Регистрация: 19.07.2007 Сообщений: 1,445	Выбираешь свой ListBox1. В Object Ispector на закладке Events в поле для OnClick делаешь двойной клик левой кнопкой мыши. Все. P.S.: Взял бы хоть что-нибудь почитать по Делфи. Здесь хорошая подборка книг: http://www.programmersclub.ru/book Пишите код так, как будто сопровождать его будет склонный к насилию психопат, который знает, где вы живёте. Правила форума => Правила раздела => Для общего развития => Помощь студентам => Перед тем, как создавать тему, скачайте себе... P.S.: форум не песочница (с) название статьи на сайте MS: "Отмена принудительного отключения автоматического запуска в реестре Windows"

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Программа которая делает кроссворд	Иллидан	Софт	15	02.12.2014 06:34
Получнение информации о системе. Функция GetSystemInfo	Д'якон	Win Api	10	23.01.2012 03:57
com-программа, которая блокирует клавиатуру	Белка	Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM	2	26.11.2007 14:37
Текущая политика безопасности не позволяет получать доступ к файловой системе. JavaScript	studenth	JavaScript, Ajax	12	06.10.2007 13:04

08.11.2007, 10:55	#15
metamfetamin Пользователь Регистрация: 02.11.2007 Сообщений: 68	А у меня выводит только список дисков!!!! Незнаеш почему у меня когда я клацаю на каком то диске не выводится инфа в Label ??????

08.11.2007, 13:24	#17
metamfetamin Пользователь Регистрация: 02.11.2007 Сообщений: 68	Спасиба огромное!!!!! Обязательно почитаю!!!! Все больше по этому вопросу беспокоить не буду!!!!!!!!!