Особенности языка mql5, тонкости и приёмы работы - страница 198

[Vitaly Muzichenko]

Vladimir Simakov:
upd: на x86 архитектуре - инструкция прсессора cpuid. В msvs есть __cpuid(int[4],int) и __cpuidex(int[4],int,int). Примеры в сети есть.

Решил отказаться от инфы процессора - показывает не понятно что.

Остановился на диске, вернее на его разделе, так-как номер всего девайса определить нет возможности.

Одно сомнение, правильно ли вписаны типы данных?

#property strict

#import "kernel32.dll"
bool GetVolumeInformationW(string RootPathName,
                           ushort VolumeNameBuffer,
                           uint VolumeNameSize,
                           uint &VolumeSerialNumber[],
                           uint MaximumComponentLength,
                           uint FileSystemFlags,
                           ushort FileSystemNameBuffer,
                           uint FileSystemNameSize);
#import
//+------------------------------------------------------------------+
void OnStart()
  {
   Print(SystemDriveSerialNumber("C"));
//---
  }
//+------------------------------------------------------------------+

//-------------------------------------------------------------------------------------------------------------------
string SystemDriveSerialNumber(string sDrive)
  {
   uint iVolumeSerialNumber[1]= {0};
   string sVolumeSerialNumber="";
   if(GetVolumeInformationW("C:\\", NULL, 15, iVolumeSerialNumber, 0, 0, NULL, 15))
     {
      sVolumeSerialNumber=IntegerToHexString(iVolumeSerialNumber[0]);
      sVolumeSerialNumber=StringSubstr(sVolumeSerialNumber,0,4)+"-"+StringSubstr(sVolumeSerialNumber,4);
     }
   return(sVolumeSerialNumber);
  }
//+--------------------------------
string IntegerToHexString(uint num)
  {
   char __hex[]= {'0','1','2','3','4','5','6','7','8','9','A','B','C','D','E','F'};
   int len=0,k=0;
   char buff[64];
   do
     {
      uint n=num&0xF;
      buff[len] = __hex[n];
      len++;
      num>>=4;
     }
   while(num!=0);

   for(; k<len/2; k++)
     {
      buff[k]^=buff[len-k-1];
      buff[len-k-1]^=buff[k];
      buff[k]^=buff[len-k-1];
     }
   return CharArrayToString(buff,0,len);
  }
//+------------------------------------------------------------------+

[Valeriy Yastremskiy]

Vitaly Muzichenko:

Решил отказаться от инфы процессора - показывает не понятно что.

Остановился на диске, вернее на его разделе, так-как номер всего девайса определить нет возможности.

Одно сомнение, правильно ли вписаны типы данных?

ид материнки правильней.

[Vitaly Muzichenko]

Valeriy Yastremskiy:

ид материнки правильней.

Есть пример кода, покажите?

[Valeriy Yastremskiy]

Vitaly Muzichenko:

Есть пример кода, покажите?

как в мкл серийный номер платы получить не нашел.

wmic baseboard get serialnumber

в cmd

[Vitaly Muzichenko]

Valeriy Yastremskiy:

как в мкл серийный номер платы получить не нашел.

wmic baseboard get serialnumber

в cmd

Я тоже не нашёл.

[Vladimir Simakov]

Vitaly Muzichenko:
...

Одно сомнение, правильно ли вписаны типы данных?

#define BOOL bool
#define LPWSTR string&
#define LPCWSTR const LPWSTR
#define DWORD uint
#define LPDWORD DWORD&

BOOL GetVolumeInformationW(
  LPCWSTR lpRootPathName,
  LPWSTR  lpVolumeNameBuffer,
  DWORD   nVolumeNameSize,
  LPDWORD lpVolumeSerialNumber,
  LPDWORD lpMaximumComponentLength,
  LPDWORD lpFileSystemFlags,
  LPWSTR  lpFileSystemNameBuffer,
  DWORD   nFileSystemNameSize
);

Как-то так)

upd: адаптировал под mql-сигнатуры

[Vitaly Muzichenko]

Vladimir Simakov:

Как-то так)

upd: адаптировал под mql-сигнатуры

Какой смысл конструкций #define применяемых один раз, если можно сразу вписать типы в функцию и не растягивать код?

[Igor Makanu]

Vitaly Muzichenko:

Какой смысл конструкций #define применяемых один раз, если можно сразу вписать типы в функцию и не растягивать код?

смысл, что можно причитать и/или использовать родную сигнатуру функций WinAPI

[Vitaly Muzichenko]

Igor Makanu:

смысл, что можно причитать и/или использовать родную сигнатуру функций WinAPI

Возможно, но вопрос конкретно в этом

Форум по трейдингу, автоматическим торговым системам и тестированию торговых стратегий

Особенности языка mql5, тонкости и приёмы работы

Vitaly Muzichenko, 2021.02.28 00:21

Какой смысл конструкций #define применяемых один раз, если можно сразу вписать типы в функцию и не растягивать код?

Есть какое-то преимущество дефайнов?

[Vitaly Muzichenko]

Vladimir Simakov:

Как-то так)

upd: адаптировал под mql-сигнатуры

В библе WinAPI mql есть эта функция

int GetVolumeInformationW(
 const string root_path_name,
 ushort &volume_name_buffer[],
 uint volume_name_size,
 uint &volume_serial_number,
 uint &maximum_component_length,
 uint &file_system_flags,
 ushort &file_system_name_buffer[],
 uint file_system_name_size
);

Ваши типы отличаются, они видимо взяты с C#

#define BOOL bool
#define LPWSTR string&
#define LPCWSTR const LPWSTR
#define DWORD uint
#define LPDWORD DWORD&

BOOL GetVolumeInformationW(
  LPCWSTR lpRootPathName,
  LPWSTR  lpVolumeNameBuffer,
  DWORD   nVolumeNameSize,
  LPDWORD lpVolumeSerialNumber,
  LPDWORD lpMaximumComponentLength,
  LPDWORD lpFileSystemFlags,
  LPWSTR  lpFileSystemNameBuffer,
  DWORD   nFileSystemNameSize
);

---

Поэтому вопрос: где правильно?