CALL & Windows API Functions

[leke]

Does CALL have access to windows API functions?
If so, can anyone show a quick example.

[Graham]

use library calls to access the windows API

Eg. this function sets the title of a window

win-lib: make object! [
   
   user-lib: load/library %user32.dll

   SetWindowText: make routine! [
      handle         [integer!]
      Title         [string!]
      return:         [integer!]
   ] user-lib "SetWindowTextA"
   
   set 'WindowTitle func [
      Title [string!]
   ] [
      SetWindowText get-modes system/ports/system 'window Title
   ]   
]

[leke]

Code:

** Script Error: Feature not available in this REBOL
** Near: user-lib: load/library %user32.dll

Must be a for a commercial version.
Thanks for the example though. It was interesting to see how it was done.

[leke]

http://mortimer.devcave.net/projects/rebcall
Not tested yet, but it might so the job.