Помогите разобратся с чтением из файла

← →
maker © (2003-01-30 14:41) [0]

Мне необходимо читать иформацию из файла быстро и совместно с другими программами, т.е. Производить чтение когда файл уже открыт другой программой. Ещё одно, необходимо использовать только модуль Windows (uses Windows). Пробовал CreateFile, но не получается перемещатся по файлу(Seek)...

← →
Игорь Шевченко © (2003-01-30 14:46) [1]

SetFilePointer

← →
MBo © (2003-01-30 14:46) [2]

>но не получается перемещатся по файлу(Seek)...
SetFilePointer

← →
Songoku (2003-02-01 15:23) [3]

function ReadFromFile(FilePath:String):Pointer;
var
f:HFile;
hszT: HLOCAL;
Size: LongInt;
begin
f:=_lopen(PChar(FilePath), OF_READ or OF_SHARE_DENY_READ);
Size:=_llseek(f, 0, 2);
_llseek(f, 0, 0);
hszT:=LocalAlloc(LMEM_MOVEABLE or LMEM_ZEROINIT, Size + 1);
Result:=LocalLock(hszT);
_lread(f,Result,Size);
_lclose(f);
end;

Потом на пример вот так
Edit1.Text:=Pchar(ReadFromFile("C:\Autoexec.bat"));

Помогите разобратся с чтением из файла Найти похожие ветки