Оберон-клуб «ВЄДАsoft»

IMPORT StdLog, WinApi;
 
CONST numberOfSteps = 134217728;(*количество шагов в цикле, а также размер записываемого файла*)
 
PROCEDURE Start*;
VAR i, j, numberOfDisks, a: INTEGER;
	b: WinApi.PtrSTR;
	drives: SET;
	drivesString: ARRAY 32 OF ARRAY 2 OF SHORTCHAR;
	boolInt: INTEGER;
	i1, i2, i3, i4: INTEGER;
	lage: LONGINT;
BEGIN
	drives := BITS(WinApi.GetLogicalDrives ());
	i := 0;
	numberOfDisks := 0;
	REPEAT
		IF i IN drives THEN
			drivesString[numberOfDisks, 0] := SHORT(CHR(i + 97));
			StdLog.String(drivesString[numberOfDisks] + ":" );
			drivesString[numberOfDisks, 1] := ":";
			IF WinApi.GetDriveType(drivesString[numberOfDisks]) = WinApi.DRIVE_REMOVABLE THEN
				StdLog.String(" съёмный диск; Количество свободного места на диске: ");
				boolInt := WinApi.GetDiskFreeSpace("g:", i1, i2, i3, i4);
				lage := i3 * i2  * LONG(i1);
				IF lage > numberOfSteps THEN
					StdLog.Real(lage);
					StdLog.String (" байт;");
				END;
				StdLog.Ln;
			END;
			StdLog.Ln;
			INC(numberOfDisks)
		END;
		INC(i)
	UNTIL i = 31;
END Start;