Re: win32lib dependancy
- Posted by Euman <euman at bellsouth.net> Nov 28, 2002
- 428 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 : : : *********************************************************************** : : : : : *********************************************************************** : : : : :