Skip to content

Latest commit

 

History

History
39 lines (29 loc) · 840 Bytes

sample_004.md

File metadata and controls

39 lines (29 loc) · 840 Bytes

Home

Current directory of the application

Code:

DECLARE INTEGER SetCurrentDirectory IN kernel32;
	STRING lpPathName

DECLARE INTEGER GetCurrentDirectory IN kernel32;
	INTEGER nBufferLength, STRING @lpBuffer

LOCAL cPath
cPath = SYS(5) + SYS(2003)

= SetCurrentDirectory("c:\Program Files")
? GetCD()
? GetCD1()

= SetCurrentDirectory(cPath)
? GetCD()
? GetCD1()
* end of main

FUNCTION GetCD
RETURN SYS(5) + SYS(2003)

FUNCTION GetCD1
	LOCAL cBuffer, nBufsize
	cBuffer = SPACE(250)
	nBufsize = GetCurrentDirectory(Len(cBuffer), @cBuffer)
RETURN SUBSTR(cBuffer, 1, nBufsize)

Listed functions:

GetCurrentDirectory
SetCurrentDirectory