init

Author: onepoint10

GetCoreTempInfoDelphi.pas

@@ -0,0 +1,72 @@
+// Core Temp shared memory reader for Delphi
+// Author: Michal Kokorceny
+// Web:    http://74.cz
+// E-mail: michal@74.cz
+//
+// Core Temp project home page:
+// http://www.alcpu.com/CoreTemp
+
+unit GetCoreTempInfoDelphi;
+
+interface
+
+{$IFDEF MSWINDOWS}
+
+type
+  CORE_TEMP_SHARED_DATA = packed record
+    uiLoad: packed array [0 .. 255] of Cardinal;
+    uiTjMax: packed array [0 .. 127] of Cardinal;
+    uiCoreCnt: Cardinal;
+    uiCPUCnt: Cardinal;
+    fTemp: packed array [0 .. 255] of Single;
+    fVID: Single;
+    fCPUSpeed: Single;
+    fFSBSpeed: Single;
+    fMultipier: Single;
+    sCPUName: packed array [0 .. 99] of AnsiChar;
+    ucFahrenheit: ByteBool;
+    ucDeltaToTjMax: ByteBool;
+  end;
+
+function fnGetCoreTempInfo(out Data: CORE_TEMP_SHARED_DATA): Boolean;
+
+{$ENDIF}
+
+implementation
+
+{$IFDEF MSWINDOWS}
+
+uses
+  Windows;
+
+const
+  CoreTempSharedArea = 'CoreTempMappingObject';
+
+function fnGetCoreTempInfo(out Data: CORE_TEMP_SHARED_DATA): Boolean;
+var
+  HCoreTempSharedArea: Cardinal;
+  PCoreTempSharedArea: Pointer;
+begin
+  Result := False;
+  HCoreTempSharedArea := OpenFileMapping(FILE_MAP_READ, True,
+    CoreTempSharedArea);
+  if HCoreTempSharedArea <> 0 then
+    try
+      PCoreTempSharedArea := MapViewOfFile(HCoreTempSharedArea, FILE_MAP_READ,
+        0, 0, SizeOf(Data));
+      if Assigned(PCoreTempSharedArea) then
+        try
+          FillChar(Data, SizeOf(Data), 0);
+          Move(PCoreTempSharedArea^, Data, SizeOf(Data));
+          Result := True;
+        finally
+          UnmapViewOfFile(PCoreTempSharedArea);
+        end;
+    finally
+      CloseHandle(HCoreTempSharedArea);
+    end;
+end;
+
+{$ENDIF}
+
+end.

Y530FunControlService.dpr

@@ -0,0 +1,29 @@
+program Y530FunControlService;
+
+uses
+  Vcl.SvcMgr,
+  main in 'main.pas' {FanControlService: TService};
+
+{$R *.RES}
+
+begin
+  // Windows 2003 Server requires StartServiceCtrlDispatcher to be
+  // called before CoRegisterClassObject, which can be called indirectly
+  // by Application.Initialize. TServiceApplication.DelayInitialize allows
+  // Application.Initialize to be called from TService.Main (after
+  // StartServiceCtrlDispatcher has been called).
+  //
+  // Delayed initialization of the Application object may affect
+  // events which then occur prior to initialization, such as
+  // TService.OnCreate. It is only recommended if the ServiceApplication
+  // registers a class object with OLE and is intended for use with
+  // Windows 2003 Server.
+  //
+  // Application.DelayInitialize := True;
+  //
+  if not Application.DelayInitialize or Application.Installing then
+    Application.Initialize;
+  Application.CreateForm(TFanControlService, FanControlService);
+  Application.Run;
+
+end.

Y530FunControlService.dproj

@@ -0,0 +1,9 @@
+<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+	<Transactions>
+    <Transaction>1899.12.30 00:00:00.000.906,D:\Crossgroup\CrossStart\FastMM\FastMM4.pas=</Transaction>
+    <Transaction>1899.12.30 00:00:00.000.877,D:\Crossgroup\CrossStart\CrossStartService\CrossStartService.dproj=D:\Crossgroup\Новая папка\Y530FunControlService.dproj</Transaction>
+    <Transaction>1899.12.30 00:00:00.000.760,D:\Crossgroup\CrossStart\CrossStartService\main.pas=D:\Crossgroup\Новая папка\main.pas</Transaction>
+    <Transaction>1899.12.30 00:00:00.000.760,D:\Crossgroup\CrossStart\CrossStartService\main.dfm=D:\Crossgroup\Новая папка\main.dfm</Transaction>
+  </Transactions>
+</BorlandProject>

Y530FunControlService.dproj.local

@@ -0,0 +1,10 @@
+[Stats]
+EditorSecs=6246
+DesignerSecs=14
+InspectorSecs=46
+CompileSecs=60035
+OtherSecs=15
+StartTime=19.12.2019 23:48:58
+RealKeys=0
+EffectiveKeys=0
+DebugSecs=106

Y530FunControlService.identcache

@@ -0,0 +1,18 @@
+object FanControlService: TFanControlService
+  OldCreateOrder = False
+  DisplayName = 'Fan fix control Lenovo Y530'
+  OnContinue = ServiceContinue
+  OnPause = ServicePause
+  OnShutdown = ServiceShutdown
+  OnStart = ServiceStart
+  OnStop = ServiceStop
+  Height = 112
+  Width = 235
+  object Timer1: TTimer
+    Enabled = False
+    Interval = 700
+    OnTimer = Timer1Timer
+    Left = 120
+    Top = 24
+  end
+end