Главная страница
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.47 MB
Время: 0.112 c
15-1158797255
Потенциальный кандидат наук
2006-09-21 04:07
2006.10.15
Ктонить защищал кандидатскую? Сколько нужно средств...


4-1148985286
Steep
2006-05-30 14:34
2006.10.15
CD/DVD привод


3-1155295880
DelphiLexx
2006-08-11 15:31
2006.10.15
TFIBDataSet перемещение записи


15-1158691104
angelnay
2006-09-19 22:38
2006.10.15
Ктонибудь может привести исходный код *.gif файла.


15-1159206509
KingLion
2006-09-25 21:48
2006.10.15
MS FrameWork 1.1 SDK