Текущий архив: 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.047 c
