Как сделать правильно поток, если действие которое нужно выполнить имеет еще параметры которые заполняются во время работы. Вот пример:
Дан код:
Код:
{Проверка на наличие CD\DVD}
function DiskInDrive(ADriveLetter:Char):Boolean;
var
SectorsPerCluster,BytesPerSector,NumberOfFreeClusters,TotalNumberOfClusters:Cardinal;
begin
Result:=GetDiskFreeSpace(PChar(ADriveLetter+':\'),SectorsPerCluster,BytesPerSector,NumberOfFreeClusters,TotalNumberOfClusters);
end;
данную функцию надо выполнить в потоке, но переменная ADriveLetter:Char меняется во время работы программы, поясню что это буква диска она может быть как с, d, e и т.д.