Головна сторінка
Top.Mail.Ru Яндекс.Метрика
Форум: "WinAPI";
Поточний архів: 2002.12.23;
Завантажити: [xml.tar.bz2];

Вниз

Що то я не розберуся з GetVolumeInformation! Знайти схожі гілки


Alexander   (2002-11-09 20:36) [0]

Точніше працюю я сней давно і начебто глюків не помічав, але ось написав такий код і він не хоче працювати:
function GetFileSystem (RootPath: PChar): string; var MaximumComponentLength: DWORD; FileSystemFlags: DWORD; FileSystemName: array [0..1024] of Char; begin if not GetVolumeInformation (RootPath, nil, 0, nil, MaximumComponentLength, FileSystemFlags, FileSystemName, SizeOf (FileSystemName)) then Result: = SysErrorMessage (GetLastError) else Result: = FileSystemName; end;

після цього на форму кидаю мітку, кнопку і Едіт.
в обробнику кнопки написав
починати
// Edit1.Text: = "C: \";
Label1.Caption: = GetFileSystem (PChar (Edit1.Text));
end;

запускаю, набираю в Edit1 C: \ - пише, що зазначений шлях не знайдений! перевірив на декількох машинах. Якщо після цього поставити який-небудь інший реально існуючий в системі диск (напр. А: \), то пише, що пристрій не готовий і після цього при наборі C: \ видає те, що очікувалося - "NTFS".
Якщо ж перед запуском проги розкоментувати рядок, то показує правильно з першого разу!

У чому прикол?



Snap   (2002-11-09 20:55) [1]

Напевно string неправильно в pchar переробляється. спробуй StrPCopy



Alexander   (2002-11-09 21:08) [2]

Не допомогло, додав:
Root: array [0..3] of Char;
починати
StrPCopy (Root, Edit1.Text);
Label1.Caption: = GetFileSystem (Root);
end;

ефект той-же, хоча Root = [ "C", ":", "\", # 0]



Snap   (2002-11-09 21:10) [3]

а якщо ось так

Root: array [0..3] of Char;
починати
StrPCopy (Root, Edit1.Text);
Label1.Caption: = GetFileSystem ( @Root [0]);
end;



Alexander   (2002-11-09 21:16) [4]

Не допомогло: ((- тестую зразу на кількох машинах (2000, XP)
я тепер до ранку відключаюся



Alexander   (2002-11-10 08:12) [5]

У кого які ідеї будуть?



Song   (2002-11-10 09:02) [6]

Я думаю помилка в пам'яті. AV не виникає?
Використовуйте тип PDWord



сторінки: 1 вся гілка

Форум: "WinAPI";
Поточний архів: 2002.12.23;
Завантажити: [xml.tar.bz2];

наверх









Пам'ять: 0.57 MB
Час: 0.026 c
14-74937
Марат
2002-12-02 16:08
2002.12.23
Все те ж питання про серійний номер процесора.


14-74898
Хох
2002-12-04 13:16
2002.12.23
Реєстрація Delphi 7


4-75048
Космічні
2002-11-10 18:42
2002.12.23
Приклад функції SetTimer ???


1-74826
harismatik
2002-12-11 20:46
2002.12.23
Введення фрагмента HTML коду


1-74650
harismatik
2002-12-12 18:50
2002.12.23
Позиціонування курсора в ListView





африкаанс албанський арабська вірменин азербайджанець баскський білоруський болгарська каталонський Китайська (спрощене письмо) Китайський традиційний) хорватський чеська данську мову нідерландський Ukranian естонець Філіппінська фінську мову французький
галісійська грузинський німецький грецький гаїтянський креольський давньоєврейську хінді угорський ісландський індонезієць ірландський італійський японський корейський латиська литовець македонець малайський мальтійський норвежець
перс полірування португальська румунський російська сербський словацький словенський іспанська суахілі шведську мову тайський турецька український урду в'єтнамський валлійський ідиш бенгальський боснійський
кебуано есперанто гуджараті хауса хмонг ігбо яванський каннада кхмерская Лао латинь маорі маратхі монгольський непальська панджабі сомалійський тамільська телугу йоруба
зулуський
Англійська Французький Німецький Італійський Португальська Русский Іспанська