Truice/FunckDLL.pas at master · Dragonspower/Truice · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
unit FunckDLL;

interface
  uses Registry, Windows;

  function LoadLocales():string; export;
  procedure ShowHourGlassCursor; export;


implementation


procedure ShowHourGlassCursor;
begin
  SetCursor(LoadCursor(0,IDC_WAIT));
end;

function LoadLocales():string;
begin
 with TRegistry.Create do
  try
    RootKey := HKEY_CURRENT_USER;
    if not OpenKey('SOFTWARE\Truice', false) then exit;
    try
     case ReadInteger('Locales') of
      0: result:= '_loc1';
      1: result:= '_loc2';
      2: result:= '_loc3';
      3: result:= '_loc4';
      4: result:= '_loc5';
      5: result:= '_loc6';
      6: result:= '_loc7';
      7: result:= '_loc8';
     end;
   except
      Result:= '_loc1';
    end;
  finally
    free;
  end;
end;

end.