Не получится там так, см. ссылку. По крайней мере просто
Может попробовать через Named Pipe? Там функции используются CreateFile, ReadFile и т.п. только файла как бы нет.
http://www.frolov-lib.ru/books/bsp/v27/ch2_3.htm
Модератор: Дед Пахом
Не получится там так, см. ссылку. По крайней мере просто
RaFaeL
Если сообщение всегда одно, то для этого лучше использовать код возврата. Команда RUN() их, кажется, читать умеет.
Это тоже можно делать проще. Есть такие команды DOS как MKDIR и RMDIR -- файла вроде нет, открывать его не надо, читать тоже.
Shur
Дед Пахом
RaFaeL
Дед Пахом
vd-vuf
Дед Пахом
Yufil
Admin
Yufil
Извините, пошутил. Ну просто нужен кусочек памяти, доступный для разных процессов и куда можно пихать и брать все что угодно. Смотрю в сторону CreateFileMapping.
vic7tar
Yufil
dik1970
Почему бы просто не получить серийный номер HDD традиционным способом ?
Код: Выделить всё
Module('Windows')
GetVolumeInformation(*CSTRING,<*CSTRING>,ULONG,*ULONG,*ULONG,*ULONG,*CSTRING,ULONG),SIGNED,PASCAL,RAW,NAME('GetVolumeInformationA')
end
GetHDDNumber PROCEDURE
RootPathName CSTRING(4)
VolumeNameBuf CSTRING(20)
VolumeNameSize ULONG(20)
VolumeSerialNumber ULONG
MaxCompLeng ULONG
FileSysFlags ULONG
FileSysNameBuf CSTRING(20)
FileSysNameSize ULONG(20)
CODE
RootPathName = 'C:\'
If GetVolumeInformation(RootPathName,VolumeNamebuf,VolumeNameSize,VolumeSerialNumber,MaxCompLeng,FileSysFlags,FileSysNameBuf,FileSysNameSize).
Return(VolumeSerialNumber)
Игорь Столяров
kreator
Вернуться в «CLARION for Windows»
Создано на основе phpBB® Forum Software © phpBB Limited
Time: 0.098s | Peak Memory Usage: 1.36 МБ | GZIP: Off