Написал программку, которая должна читать
с диска напрямую, однако чтения не происходит!
Перерыл кучу доков, в сотый раз облизал каждую строчку!
Она не читает хоть убей!
Я работаю с правами администратора, так что
не работает она не из за этого, уже излазил
везде, там говорят одно и тоже, главное права админа,
FILE_SHARE_WRITE, и всё будет работать, но ничего не происходит - мне возвращается пустой файл.
у меня winXP помогите, плиз!
program ReadWrtVolume;
uses
Windows, Messages;
var
flRd:h File;
flWt:h File;
wtd :DWORD;
rdd :DWORD;
buf :array[1..1000] of byte;
begin
flRd := CreateFile(\\.\PHYSICALDRIVE0,
GENERI C_READ,
FILE_SHARE_WRITE,
nil,
OPEN_EXISTING,
FILE_ATTRIBUTE_NOR MAL,
0);
flWt := CreateFile(hello.txt,
GENERI C_WRITE,
FILE_SHARE_READ,
nil,
OPEN_ALWAYS,
FILE_ATTRIBUTE_NOR MAL,
0);
ReadFile(flRd, buf, 1000, rdd, nil);
WriteFile(flWt, buf, rdd, wtd, nil);
CloseHandle(flRd);
CloseHandle(flWt);
end.
с диска напрямую, однако чтения не происходит!
Перерыл кучу доков, в сотый раз облизал каждую строчку!
Она не читает хоть убей!
Я работаю с правами администратора, так что
не работает она не из за этого, уже излазил
везде, там говорят одно и тоже, главное права админа,
FILE_SHARE_WRITE, и всё будет работать, но ничего не происходит - мне возвращается пустой файл.
у меня winXP помогите, плиз!
program ReadWrtVolume;
uses
Windows, Messages;
var
flRd:h File;
flWt:h File;
wtd :DWORD;
rdd :DWORD;
buf :array[1..1000] of byte;
begin
flRd := CreateFile(\\.\PHYSICALDRIVE0,
GENERI C_READ,
FILE_SHARE_WRITE,
nil,
OPEN_EXISTING,
FILE_ATTRIBUTE_NOR MAL,
0);
flWt := CreateFile(hello.txt,
GENERI C_WRITE,
FILE_SHARE_READ,
nil,
OPEN_ALWAYS,
FILE_ATTRIBUTE_NOR MAL,
0);
ReadFile(flRd, buf, 1000, rdd, nil);
WriteFile(flWt, buf, rdd, wtd, nil);
CloseHandle(flRd);
CloseHandle(flWt);
end.