fivedev/harbour-core
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

2009-06-05 19:04 UTC+0200 Viktor Szakats (harbour.01 syenar.hu)

Browse Source 
* contrib/hbwin/wapi_winbase.c
    + Added:
      WAPI_GETCURRENTPROCESS()  
      WAPI_GETCURRENTPROCESSID()
      WAPI_GETCURRENTTHREAD()
This commit is contained in:
Viktor Szakats
2009-06-05 17:05:11 +00:00
parent dbcebf21a1
commit c6d0079d39
2 changed files with 22 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
harbour/ChangeLog
View File

@@ -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

15
harbour/contrib/hbwin/wapi_winbase.c
View File

@@ -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() );