use thandle type

[lcore.git] / unitsettc.pas

diff --git a/unitsettc.pas b/unitsettc.pas
index 7dc1229ef0ca9e6715560035a0e6e0ddc8dc14bc..32fb580154863dc65bab7418711ea0ad76177fb0 100644 (file)
--- a/unitsettc.pas
+++ b/unitsettc.pas
@@ -22,7 +22,7 @@ var
 \r
 procedure settc;\r
 var\r
-  hprocess,hthread:integer;\r
+  hprocess,hthread:thandle;\r
 begin\r
   if (refcount = 0) then begin\r
     hProcess := GetCurrentProcess;\r
@@ -37,7 +37,7 @@ end;
 \r
 procedure unsettc;\r
 var\r
-  hprocess,hthread:integer;\r
+  hprocess,hthread:thandle;\r
 begin\r
   dec(refcount);\r
   if (refcount < 0) then refcount := 0;\r