VAR
   hDevice, procHeap3: WinApi.HANDLE;
   lpFileName: WinApi.PtrWSTR;
   p3: WinApi.PtrVoid;
   myType1, myType2: MyType;
BEGIN
   procHeap3 := WinApi.GetProcessHeap();
   p3 := WinApi.HeapAlloc (procHeap3, {}, 19* SIZE(CHAR));
   SYSTEM.PUT (SYSTEM.ADR (lpFileName), p3);
   lpFileName[0] := "\";
   lpFileName[1] := "\";
   lpFileName[2] := ".";
   lpFileName[3] := "\";
   lpFileName[4] := "P";
   lpFileName[5] := "h";
   lpFileName[6] := "y";
   lpFileName[7] := "s";
   lpFileName[8] := "i";
   lpFileName[9] := "c";
   lpFileName[10] := "a";
   lpFileName[11] := "l";
   lpFileName[12] := "D";
   lpFileName[13] := "r";
   lpFileName[14] := "i";
   lpFileName[15] := "v";
   lpFileName[16] := "e";
   lpFileName[17] := "0";
   lpFileName[18] := 0X;
   hDevice := WinApi.CreateFileW (lpFileName, {}, WinApi.FILE_SHARE_WRITE, NIL,  WinApi.OPEN_EXISTING, {}, 0);
   IF hDevice # WinApi.INVALID_HANDLE_VALUE THEN
      ???
   ELSE
      StdLog.String ("Ошибка при получении дескриптора файла")
   END

#include <windows.h>

void y(void) {
  int x = IOCTL_STORAGE_QUERY_PROPERTY;
}

        push    ebp
        mov     ebp, esp
        push    ecx
        mov     DWORD PTR _x$[ebp], 2954240             ; 002d1400H
        mov     esp, ebp
        pop     ebp
        ret     0

MODULE TestDisk;

   IMPORT SYSTEM, WinApi, StdLog;

   PROCEDURE Do*;
      CONST
         IOCTL_STORAGE_QUERY_PROPERTY = 2954240;
         StorageDeviceProperty = 0;
         PropertyStandardQuery = 0;

      TYPE
         STORAGE_PROPERTY_QUERY = RECORD [untagged]
            PropertyID, QueryType: INTEGER;
            AdditionalParameters: ARRAY 4 OF BYTE; (*variadic*)
         END;

         STORAGE_DEVICE_DESCRIPTOR = RECORD [untagged]
            Version, Size: INTEGER;
            DeviceType, DeviceTypeModifier: BYTE;
            RemovableMedia, CommandQueueing: BYTE;
            VendorIDOffset, ProductIDOffset, ProductRevisionOffset, SerialNumberOffset: INTEGER;
            BusType: INTEGER;
            RawPropertiesLength: INTEGER;
            RawDeviceProperties: ARRAY 4096 OF BYTE; (*variadic*)
         END;

      VAR
         handle: WinApi.HANDLE;
         spq: STORAGE_PROPERTY_QUERY;
         buf: STORAGE_DEVICE_DESCRIPTOR;
         str: WinApi.PtrSTR;
         ok: WinApi.BOOL;
         i, n: INTEGER;
   BEGIN
      handle := WinApi.CreateFileW ("\\.\C:", {}, WinApi.FILE_SHARE_WRITE, NIL, WinApi.OPEN_EXISTING, {}, 0);
      IF handle # WinApi.INVALID_HANDLE_VALUE THEN
         spq.PropertyID := StorageDeviceProperty;
         spq.QueryType := PropertyStandardQuery;
         FOR i := 0 TO LEN(spq.AdditionalParameters) - 1 DO (*clear just in case*)
            spq.AdditionalParameters[i] := 0;
         END;
         IF WinApi.DeviceIoControl(handle, IOCTL_STORAGE_QUERY_PROPERTY, SYSTEM.ADR(spq), SIZE(STORAGE_PROPERTY_QUERY), SYSTEM.ADR(buf), SIZE(STORAGE_DEVICE_DESCRIPTOR), n, NIL) = WinApi.TRUE THEN
            IF buf.Version >= 40 THEN
               IF buf.Size <= SIZE(STORAGE_DEVICE_DESCRIPTOR) THEN
                  IF buf.SerialNumberOffset > 0 THEN
                     str := SYSTEM.VAL(WinApi.PtrSTR, SYSTEM.ADR(buf) + buf.SerialNumberOffset)
                  ELSE str := "<NOT AVAILABLE>"
                  END;
                  StdLog.String("Serial: "); StdLog.String(str$); StdLog.Ln
               ELSE StdLog.String("buffer too small"); StdLog.Ln
               END
            ELSE StdLog.String("unsupported version"); StdLog.Ln
            END
         ELSE StdLog.String("fail to get device properties"); StdLog.Ln
         END;
         ok := WinApi.CloseHandle(handle)
      ELSE StdLog.String("fail to open device"); StdLog.Ln
      END
   END Do;

END TestDisk.

^Q DevCompiler.CompileAndUnload
^Q TestDisk.Do