Home Explore Help
Sign In
pascal
/
freepascal.compiler
mirror of https://gitlab.com/freepascal.org/fpc/source.git
2
0
Fork 0
Files Issues 0 Wiki
Browse Source

+ SetProcessAffinityMask from Jean-Philippe Bembel

git-svn-id: trunk@4537 -
florian 19 years ago
parent
3d42afd5d3
commit
30161f996c
1 changed files with 1 additions and 0 deletions
Unified View Show Diff Stats
  1. 1 0
      rtl/win/wininc/func.inc

+ 1 - 0
rtl/win/wininc/func.inc
View File 

@@ -115,6 +115,7 @@ function GetCurrentProcess:HANDLE; external 'kernel32' name 'GetCurrentProcess';
 
 function GetCurrentProcessId:DWORD; external 'kernel32' name 'GetCurrentProcessId';
 
 function GetCurrentProcessId:DWORD; external 'kernel32' name 'GetCurrentProcessId';
 
 procedure ExitProcess(uExitCode:UINT);external 'kernel32' name 'ExitProcess';
 
 procedure ExitProcess(uExitCode:UINT);external 'kernel32' name 'ExitProcess';
 
 function TerminateProcess(hProcess:HANDLE; uExitCode:UINT):WINBOOL; external 'kernel32' name 'TerminateProcess';
 
 function TerminateProcess(hProcess:HANDLE; uExitCode:UINT):WINBOOL; external 'kernel32' name 'TerminateProcess';
 
+function SetProcessAffinityMask(hProcess: THandle; dwProcessAffinityMask: DWORD): BOOL; external 'kernel32' name 'SetProcessAffinityMask';
 
 function GetExitCodeProcess(hProcess:HANDLE; lpExitCode:LPDWORD):WINBOOL; external 'kernel32' name 'GetExitCodeProcess';
 
 function GetExitCodeProcess(hProcess:HANDLE; lpExitCode:LPDWORD):WINBOOL; external 'kernel32' name 'GetExitCodeProcess';
 
 procedure FatalExit(ExitCode:longint); external 'kernel32' name 'FatalExit';
 
 procedure FatalExit(ExitCode:longint); external 'kernel32' name 'FatalExit';
 
 procedure RaiseException(dwExceptionCode:DWORD; dwExceptionFlags:DWORD; nNumberOfArguments:DWORD; lpArguments:LPDWORD); external 'kernel32' name 'RaiseException';
 
 procedure RaiseException(dwExceptionCode:DWORD; dwExceptionFlags:DWORD; nNumberOfArguments:DWORD; lpArguments:LPDWORD); external 'kernel32' name 'RaiseException';