Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.10.15;
Скачать: CL | DM;

Вниз

Помогите с ini   Найти похожие ветки 

 
lobach ©   (2006-10-01 17:31) [0]

Здравствуйте уважаемые мастера!!!
Помогите пожалуйста:
Мне необходимо определить сколько мкста осталось на диске, букву диска нужно прочитать из ini файла, но вылазит ошибка о несовместимости типов (String в ini файле и PChar в функции):

procedure TForm1.FormCreate(Sender: TObject);
var
//Переменные функции GetDiskFreeSpaceEx
FreeBytesAvailableToCaller: TLargeInteger;
FreeSize: TLargeInteger;
TotalSize: TLargeInteger;
//Переменные для ini
ini: TiniFile;
disk: String;
begin
//Читаем из ini файла
Ini:=TiniFile.Create("c:/123.ini");
Ini.ReadString("main","disk","c:");
Ini.Free;
//Определение свободного места и вывод на экран
GetDiskFreeSpaceEx(disk, FreeBytesAvailableToCaller, Totalsize, @FreeSize);
Label1.Caption:= IntToStr(FreeSize);

end;

end.

Если просто пишу
GetDiskFreeSpaceEx("e:", FreeBytesAvailableToCaller, Totalsize, @FreeSize);
То есть не переменную из ini файла, а сам диск, то всё работает.
Помогите пожалуйста уже несколько дней голову грею...


 
RASkov   (2006-10-01 17:33) [1]

disk:=Ini.ReadString("main","disk","c:");
Ini.Free;
//Определение свободного места и вывод на экран
GetDiskFreeSpaceEx(PChar(disk), FreeBytesAvailableToCaller, Totalsize, @FreeSize);


 
lobach ©   (2006-10-01 17:47) [2]


> RASkov

Большое спасибо.



Страницы: 1 вся ветка

Текущий архив: 2006.10.15;
Скачать: CL | DM;

Наверх




Память: 0.44 MB
Время: 0.035 c
1-1156672010
Mr tray
2006-08-27 13:46
2006.10.15
Синхронизация


1-1157642594
DroNIX
2006-09-07 19:23
2006.10.15
Нажатие клавиш по определённому алгоритму


1-1157473378
flaxe
2006-09-05 20:22
2006.10.15
Передать String другому приложению


15-1157534717
Stexen
2006-09-06 13:25
2006.10.15
Turbo delphi


15-1158676446
oldman
2006-09-19 18:34
2006.10.15
Плюнул на фильм, купил книгу.





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский