Procedure ReadConfig(filePath.s) hFile = CreateFile_(filePath, GENERIC_READ, FILE_SHARE_READ, 0, OPEN_EXISTING, 0, 0) If hFile = -1 ProcedureReturn #False EndIf size = GetFileSize_(hFile, 0) data.s = Space(size) ReadFile_(hFile, @data, size, bytesRead, 0) CloseHandle_(hFile) ; parse data into structure fields ; ... ProcedureReturn #True EndProcedure
Procedure ReadConfig(filePath.s) hFile = CreateFile_(filePath, GENERIC_READ, FILE_SHARE_READ, 0, OPEN_EXISTING, 0, 0) If hFile = -1 ProcedureReturn #False EndIf size = GetFileSize_(hFile, 0) data.s = Space(size) ReadFile_(hFile, @data, size, bytesRead, 0) CloseHandle_(hFile) ; parse data into structure fields ; ... ProcedureReturn #True EndProcedure
