| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Помогите с ini [D7, XP]
lobach © (2006-10-01 17:31:00)Здравствуйте уважаемые мастера!!!
Помогите пожалуйста:
Мне необходимо определить сколько мкста осталось на диске, букву диска нужно прочитать из 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 файла, а сам диск, то всё работает.
Помогите пожалуйста уже несколько дней голову грею...
lobach (2006-10-01 17:47:00) [1]
> RASkov
Большое спасибо.
RASkov (2006-10-01 17:33:00) [2]disk:=Ini.ReadString('main','disk','c:');
Ini.Free;
//Определение свободного места и вывод на экран
GetDiskFreeSpaceEx(PChar(disk), FreeBytesAvailableToCaller, Totalsize, @FreeSize);
| |
