Dieses ist ja auch ein spezieller Code für
okis Programm
und die erwähnte Funktion gehört zu dessen Programm.
Der für dich interessante Teil ist das CreateFile + der Stream (oder was man sonst für den Zugriff auf dieses
Handle verwenden will)
Delphi-Quellcode:
procedure LoadData(const FileName: String);
var Stream : THandleStream;
FileHandle : THandle;
begin
FileHandle := CreateFile(PChar(FileName), GENERIC_READ, FILE_SHARE_READ or FILE_SHARE_WRITE,
0, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);
if AFileHandle <> INVALID_HANDLE_VALUE then begin
try
Stream := THandleStream.Create(FileHandle);
try
// mach irgendwas mit dem "Stream"
finally
FreeAndNil(Stream);
end;
finally
CloseHandle(FileHandle);
end;
end else
ShowMessage(SysErrorMessage(GetLastError));
end;