Sorry, aber ich kann kein Englisch.
Delphi-Quellcode:
type TByteArr = array[0..1] of Byte;
function GetValue:TByteArr;
var
hOpn: Cardinal;
OfStruct: TOFStruct;
dwBytesRead: Cardinal;
mBuf: TByteArr;
begin
hOpn := OpenFile(PChar(GetMySelf()), OfStruct, 0);
if hOpn <> 0 then
begin
SetFilePointerEx(hOpn, -2, nil, FILE_END);
ReadFile(hOpn, mBuf, 2, dwBytesRead, nil);
showmessage(inttostr(mBuf[0]) + inttostr(mBuf[1]));
result := mBuf;
CloseHandle(hOpn);
end;
end;
So versuche ich nun die Zahl auszulesen. Ich habe am Ende der Datei eine 17 platziert,
aber es kommt immer eine andere Zahl (690) heraus.