Hi,
System.ProcessID return the current process handle instead of the process ID. Similar issue for System.ThreadID. Attached patch fixes this.
Regards, Vincent Snijders.
Index: fpc-1.9/rtl/win32/system.pp
===================================================================
RCS file: /FPC/CVS/fpc/rtl/win32/system.pp,v
retrieving revision 1.63
diff -u -r1.63 system.pp
--- fpc-1.9/rtl/win32/system.pp 4 Nov 2004 09:32:31 -0000 1.63
+++ fpc-1.9/rtl/win32/system.pp 19 Nov 2004 10:06:55 -0000
@@ -692,8 +692,11 @@
function GetCommandLine : pchar;
stdcall;external 'kernel32' name 'GetCommandLineA';
- function GetCurrentThread : dword;
- stdcall; external 'kernel32' name 'GetCurrentThread';
+ function GetCurrentProcessId:DWORD;
+ stdcall; external 'kernel32' name 'GetCurrentProcessId';
+
+ function GetCurrentThreadId:DWORD;
+ stdcall; external 'kernel32' name 'GetCurrentThreadId';
var
@@ -1597,8 +1600,8 @@
setup_arguments;
{ Reset IO Error }
InOutRes:=0;
- ProcessID := GetCurrentProcess;
- ThreadID := GetCurrentThread;
+ ProcessID := GetCurrentProcessId;
+ ThreadID := GetCurrentThreadId;
{ Reset internal error variable }
errno:=0;
{$ifdef HASVARIANT}
_______________________________________________ fpc-devel maillist - [EMAIL PROTECTED] http://lists.freepascal.org/mailman/listinfo/fpc-devel
