Главная страница
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.039 c
15-1159117009
Alx2
2006-09-24 20:56
2006.10.15
Связь изменения численности населения города и уровня жизни в нем


1-1157442128
speaker_avi
2006-09-05 11:42
2006.10.15
вопрос о monthcalendar


15-1158937103
GanibalLector
2006-09-22 18:58
2006.10.15
Insert startup disk i floppy drive and press F2 to run setup.


2-1159542353
NSD
2006-09-29 19:05
2006.10.15
Работа с реестром из ChekListBox


15-1158902293
buka
2006-09-22 09:18
2006.10.15
Может конечно и баян, но ссылка имхо полезная