Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.048 c