From c6d0079d39a3d57a0b2a75ae89ddf4238f788c55 Mon Sep 17 00:00:00 2001
From: Viktor Szakats <harbour@syenar.net>
Date: Fri, 5 Jun 2009 17:05:11 +0000
Subject: [PATCH] 2009-06-05 19:04 UTC+0200 Viktor Szakats (harbour.01
 syenar.hu)   * contrib/hbwin/wapi_winbase.c     + Added:      
 WAPI_GETCURRENTPROCESS()       WAPI_GETCURRENTPROCESSID()      
 WAPI_GETCURRENTTHREAD()

---
 harbour/ChangeLog                    |  7 +++++++
 harbour/contrib/hbwin/wapi_winbase.c | 15 +++++++++++++++
 2 files changed, 22 insertions(+)

diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index f4ea47c72f..ce9c497fdb 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -17,6 +17,13 @@
    past entries belonging to author(s): Viktor Szakats.
 */
 
+2009-06-05 19:04 UTC+0200 Viktor Szakats (harbour.01 syenar.hu)
+  * contrib/hbwin/wapi_winbase.c
+    + Added:
+      WAPI_GETCURRENTPROCESS()
+      WAPI_GETCURRENTPROCESSID()
+      WAPI_GETCURRENTTHREAD()
+
 2009-06-05 18:54 UTC+0200 Viktor Szakats (harbour.01 syenar.hu)
   * contrib/Makefile
   + contrib/xpp
diff --git a/harbour/contrib/hbwin/wapi_winbase.c b/harbour/contrib/hbwin/wapi_winbase.c
index df1e434cfc..33a0b487b4 100644
--- a/harbour/contrib/hbwin/wapi_winbase.c
+++ b/harbour/contrib/hbwin/wapi_winbase.c
@@ -73,6 +73,21 @@ HB_FUNC( WAPI_GETCOMMANDLINE )
    HB_TCHAR_FREE( buffer );
 }
 
+HB_FUNC( WAPI_GETCURRENTPROCESS )
+{
+   wapi_ret_HANDLE( GetCurrentProcess() );
+}
+
+HB_FUNC( WAPI_GETCURRENTPROCESSID )
+{
+   hb_retnint( GetCurrentProcessId() );
+}
+
+HB_FUNC( WAPI_GETCURRENTTHREAD )
+{
+   wapi_ret_HANDLE( GetCurrentThread() );
+}
+
 HB_FUNC( WAPI_GETLASTERROR )
 {
    hb_retnl( ( long ) GetLastError() );