OpenEuphoria

Re: win32Lib request for RemoveDirectoryA

• Posted by Bernie Ryan <xotron at bluefrog.com> Jul 03, 2006
• 630 views

Bob Thompson wrote:
> 
> xDeleteFile   = define_c_func(open_dll("kernel32"), "DeleteFileA",
> {C_POINTER}, C_LONG)
> 
> global function delete_file(sequence filename)
> atom pfilename, ret
> pfilename = allocate_string(filename)
> ret = c_func(xDeleteFile, {pfilename})
> free(pfilename)
> return ret
> end function

> I know it gets a lot more complicated (and interesting) than this the
> more you dig. Perhaps it might be possible to write a program to reverse
> engineer Bernard’s code and present it in dll.e format like Akusaya's

Bob:

   Or you can use WMOTOR.

include motor.eu

library("kernel32")
declare("DeleteFile",1,s)

global function delete_file(sequence filename)
atom ret
ret = c_func("DeleteFile", {sz(pfilename)})
szfree()
return ret
end function

Bernie

My files in archive:
WMOTOR, XMOTOR, W32ENGIN, MIXEDLIB, EU_ENGIN, WIN32ERU, WIN32API 

Can be downloaded here:
http://www.rapideuphoria.com/cgi-bin/asearch.exu?dos=on&win=on&lnx=on&gen=on&keywords=bernie+ryan