hFile := CreateFile(pChar(FullPathFilename), GENERIC_READ, FILE_SHARE_READ, nil, OPEN_EXISTING, 0, 0);
Das ist interessanterweise genau das, was
TFileStream.Create(Filename, fmOpenRead or fmShareDenyRead)
intern tut.
Übrigens:
PChar
funktioniert auch für neue Delphiversionen.