romfast/tasks
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Initial commit - tasks v1.1.14

Browse Source 
Co-Authored-By: Claude Sonnet 4.6 <noreply@anthropic.com>
This commit is contained in:
Marius Mutu
2026-04-21 15:46:20 +03:00
commit d91b19e336
218 changed files with 8258 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

29
programe/ini.prg Normal file
View File

@@ -0,0 +1,29 @@
* WriteINI - Writes an item to an INI file, pretty straight forward *
PROCEDURE WriteINI &&(cINIFile AS String, cTopic AS String, cItem AS String, cValue AS STRING)
LPARAMETERS cINIFile, cTopic, cItem, cValue
DECLARE INTEGER WritePrivateProfileString IN Win32API ;
STRING cTopic, ;
STRING cItem, ;
STRING cValue, ;
STRING cINIFile
WritePrivateProfileString(m.cTopic, m.cItem, m.cValue, m.cINIFile)
ENDPROC
* ReadINI - Reads values from an INI file, pretty straight forward *
FUNCTION ReadINI &&(cINIFile As String, cTopic AS String, cItem AS String) AS STRING
LPARAMETERS cINIFile, cTopic, cItem
DECLARE INTEGER GetPrivateProfileString IN Win32API ;
STRING cTopic, ;
STRING cItem, ;
STRING cDefault, ;
STRING cValueBuf, ;
INTEGER nValueBufSize, ;
STRING cINIFile
PRIVATE cValue, nBuf
m.cValue = REPLICATE(CHR(0), 255)
m.nBuf = GetPrivateProfileString(m.cTopic, m.cItem, '', @cValue, 255, m.cINIFile)
RETURN LEFT(m.cValue, m.nBuf)
ENDFUNC