Par2: Deleting a file using Windows API 1999-06-19 -- Richard Brown Robert Cayouette and myself, Richard Brown want to give something back
to the Clarion community for all the help we have received. We needed a
way to delete a text file and used this WIN API.
R.E.B.
!after global include
!*********************************
include('winequ.clw')
!global data
!*********************************
GLO:FileName Cstring(256)
!global map
!*********************************
OMIT('***',_WIDTH32_)
Module('win16.lib')
DeleteFileA(*LPCSTR),BOOL,PASCAL,RAW
END
***
COMPILE('***',_WIDTH32_)
Module('win32.lib')
DeleteFileA(*LPCSTR),BOOL,PASCAL,RAW
END
***
!somewhere in the program to delete a file
!******************************************
!delete the entire `data.ini` file
GLO:FileName='.\csidata\data.ini'
X# = DeleteFileA(GLO:FileName)
Printed November 21, 2024, 6:45 am This article has been viewed/printed 35230 times. |