1. win32lib dependancy
- Posted by Patrick.Barnes at transgrid.com.au Nov 28, 2002
- 432 views
My .exw proggy only contains one part that uses win32lib: ----==========Set the working directory=========---- constant SetCurrentDirectory = registerw32Procedure( kernel32, "SetCurrentDirectoryA", {C_POINTER} ) atom str str = allocate_string("\\\\fp-ho1-pr\\HO_share\\Tier 3 Database\\") w32Proc( SetCurrentDirectory, {str} ) free( str ) ----============================================---- Because of that one snippet, I have to have win32lib.ew, misc.e, machine.e, etc etc etc... all these include files, in the folder too. How can I redo the above without using win32lib? I tried looking at the win32lib functions, but there's so many constants and things I don't understand there, I wouldn't know where to begin. David, Derek... can you write the above snippet without using win32lib calls? Very confused. ======================= Patrick Barnes Information Systems Group 201 Elizabeth St, Sydney Patrick.Barnes at tg.nsw.gov.au Ext: 91-3583 Ph:(02) 9284-3583 Mob: 0410 751 044 *********************************************************************** ***********************************************************************
2. Re: win32lib dependancy
- Posted by Euman <euman at bellsouth.net> Nov 28, 2002
- 429 views
Hey Patrick, How about this snippet that uses no (0) include files: global function allocate_string(sequence s) atom mem mem = machine_func(16, (length(s) + 1)) if mem then poke(mem, s & 0) end if return mem end function atom kernel32 kernel32 = machine_func(50, "kernel32.dll") constant SetCurrentDirectory = machine_func(51, {kernel32, "SetCurrentDirectoryA", {#01000004}, 0} ) atom str str = allocate_string("\\\\fp-ho1-pr\\HO_share\\Tier 3 Database\\") c_proc(SetCurrentDirectory,{str}) machine_proc(17, str ) Euman euman at bellsouth.net ----- Original Message ----- From: <Patrick.Barnes at transgrid.com.au> To: "EUforum" <EUforum at topica.com> Sent: Wednesday, November 27, 2002 9:45 PM Subject: win32lib dependancy : : My .exw proggy only contains one part that uses win32lib: : : ----==========Set the working directory=========---- : constant SetCurrentDirectory = registerw32Procedure( kernel32, "SetCurrentDirectoryA", {C_POINTER} ) : atom str str = allocate_string("\\\\fp-ho1-pr\\HO_share\\Tier 3 Database\\") : w32Proc( SetCurrentDirectory, {str} ) free( str ) : ----============================================---- : : Because of that one snippet, I have to have win32lib.ew, misc.e, machine.e, etc etc etc... all these include files, in the folder too. : How can I redo the above without using win32lib? : I tried looking at the win32lib functions, but there's so many constants and things I don't understand there, I wouldn't know where to begin. : : David, Derek... can you write the above snippet without using win32lib calls? : : : Very confused. : ======================= : Patrick Barnes : Information Systems Group : 201 Elizabeth St, Sydney : Patrick.Barnes at tg.nsw.gov.au : Ext: 91-3583 : Ph:(02) 9284-3583 : Mob: 0410 751 044 : : : *********************************************************************** : : : : : *********************************************************************** : : : : :
3. Re: win32lib dependancy
- Posted by Wolf <wolfritz at KING.IGS.NET> Nov 28, 2002
- 414 views
include dll.e include machine.e atom kernel32, SetCurrentDirectory,result kernel32 = open_dll("kernel32.dll") SetCurrentDirectory = define_c_func(kernel32,"SetCurrentDirectoryA",{C_POINTER},C_INT) atom str str = allocate_string("\\\\fp-ho1-pr\\HO_share\\Tier 3 Database\\") result=c_func( SetCurrentDirectory, {str} ) free( str ) -- returns 0 if failure > Very confused. > ======================= > Patrick Barnes