Kbase P3294: How To CAll WIN32 API SetFileAttributes?
| Autor |
Progress Software Corporation - Progress |
| Acesso |
Público |
| Publicação |
3/12/2003 |
|
Status: Unverified
GOAL:
How To Call WIN32 API SetFileAttributes
FIX:
DEFINE VARIABLE res AS INTEGER NO-UNDO.
DEFINE VARIABLE cFileName AS CHARACTER NO-UNDO.
DEFINE VARIABLE iFileAttributes AS INTEGER NO-UNDO.
cFileName = "c:\test1.xls".
/*
READ_ONLY = 1
HIDDEN = 2
ARCHIVE = 32 */
iFileAttributes = 34.
RUN SetFileAttributesA (
cFileName,
iFileAttributes,
OUTPUT res).
PROCEDURE SetFileAttributesA EXTERNAL "kernel32":
DEFINE INPUT PARAMETER lpFileName AS CHARACTER.
DEFINE INPUT PARAMETER dwFileAttributes AS LONG.
DEFINE RETURN PARAMETER res AS LONG.
END PROCEDURE.