PHP DM Gate v0.9 » Перевести на Delphi

p © (20.07.13 14:58) [0]

Переведите пожалуйста на Delphi

CODE>LPCWSTR Device;

DEV_BROADCAST_VOLUME Volume = {sizeof(DEV_BROADCAST_VOLUME), DBT_DEVTYP_VOLUME};
Volume.dbcv_unitmask = 1 << (Device[0] - L'A');</

<Цитата>
MBo © (20.07.13 16:39) [1]

что именно непонятно?
Первая строка - частичная инициализация структуры
Вторая - установка бита в маске, согласно тому, как описано в MSDN

<Цитата>
p © (20.07.13 17:24) [2]

Про вторую разобрался

А это ни как вкурю
{sizeof(DEV_BROADCAST_VOLUME), DBT_DEVTYP_VOLUME};

<Цитата>
MBo © (20.07.13 17:33) [3]

в msdn описание структуры посмотрел?

<Цитата>
p © (20.07.13 17:50) [4]

Все вроде вкурил

> частичная инициализация структуры
>

dbcv_size := SizeOf(TDEV_BROADCAST_VOLUME);
dbcv_devicetype := DBT_DEVTYP_VOLUME;

гребаный
с

язык

<Цитата>
robt5 (21.07.13 16:26) [5]

> гребаный с язык

+

<Цитата>