Не получится там так, см. ссылку. По крайней мере просто
Может попробовать через Named Pipe? Там функции используются CreateFile, ReadFile и т.п. только файла как бы нет.
http://www.frolov-lib.ru/books/bsp/v27/ch2_3.htm
Модератор: Дед Пахом
Не получится там так, см. ссылку. По крайней мере просто
Если сообщение всегда одно, то для этого лучше использовать код возврата. Команда RUN() их, кажется, читать умеет.
Это тоже можно делать проще. Есть такие команды DOS как MKDIR и RMDIR -- файла вроде нет, открывать его не надо, читать тоже.
Извините, пошутил. Ну просто нужен кусочек памяти, доступный для разных процессов и куда можно пихать и брать все что угодно. Смотрю в сторону CreateFileMapping.
Почему бы просто не получить серийный номер 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)