[NumLock]

PHP код:

procedure TForm1.Button2Click(Sender: TObject);
var
  h: THandle;
  data: array of Char;
  len: Cardinal;
  dummy: Cardinal;
  i: Integer;
begin
  h:=CreateFile('Project1.dpr', GENERIC_READ, 0, nil, OPEN_EXISTING, 0, 0);
  len:=GetFileSize(h, nil);
  SetLength(data, len);
  ReadFile(h, data[0], len, dummy, nil);
  CloseHandle(h);
  for i:=0 to dummy-1 do
    Memo1.Lines.Add(data[i]);
end;