LA/QM forum - Help (QM)

Parameters of the GetEnvVar function

Mon, 07 Sep 2026 07:22:36 +0000

I need to make the second parameter of qmq's built-in function GetEnvVar optional.

Below is ChatGPT's answer, but it always produces garbled text in actual use.
Is there a better solution?

Function getEnv

Code:
function$ $name [str&value] 

str R

if(GetEnvVar(name R))

,if(&value)

,,value = R

,,value.expandpath

,,ret value

,else

,,_s=R.expandpath

,,ret _s

Function GetEnvVar

Code:
;/

function$ $name str&value

;Gets an environment variable.

;Returns value if successful, 0 if failed.

;value - variable for value.

;Added in: QM 2.3.0.

int n1(4) n2

;g1

BSTR b.alloc(n1)

n2=GetEnvironmentVariableW(@name b n1)

if(n2>n1) n1=n2; goto g1

if(n2) value.ansi(b); ret value

value.all

Free reg code not work

Wed, 02 Sep 2026 01:36:29 +0000

Dear, sir.
I entered free reg code as you mentoined in the webpage. But the evaluation period is still running. It has now been 30 days. What is the solution?

qm.png (Size: 9.13 KB / Downloads: 15)

Determining When a File Is Ready

Tue, 01 Sep 2026 05:10:31 +0000

When I copy files from another computer on the local LAN, the source file may still be being copied or downloaded (the file size is changing).

The method in the code below may be too simplistic.

Is there a more accurate way to determine whether the file is ready?

I have seen similar code in a macro on a forum, but after trying many keywords, I still haven't found it.

Function Function6

Code:
str destFolder="$desktop$\T"

mkdir destFolder

sub.netCopy("\\PC001\d\S" destFolder)

#sub netCopy

function ~srcFolder ~dstFolder

,;; Get full path list of .avi and .mp4 files

,ARRAY(str) a

,GetFilesInFolder a srcFolder "*.avi[]*.mp4"

,

,int i

,for i 0 a.len

,,str filePath = a[i]

,,

,,;; Wait for file size to stabilize (max 60 seconds)

,,int prevSize = -1

,,int curSize

,,int waited = 0

,,rep

,,,Dir d.dir(filePath)

,,,curSize = d.FileSize

,,,if(prevSize != -1 and curSize = prevSize) break

,,,prevSize = curSize

,,,waited + 2

,,,if(waited >= 60) break

,,,2   ;; wait 2 seconds

,,

,,;; Copy file (replace if target exists)

,,cop- filePath dstFolder

Get the list of all custom functions and member functions contained in a specified QM

Mon, 31 Aug 2026 14:03:53 +0000

I often share the source code of a certain function with friends, but that function contains many of my custom functions and member functions, which are scattered in different folders. Because of this, every time (or when updating later) it takes a lot of time to organize them, which is not convenient.
I have tried using the shared folder method, but it still doesn't meet my needs.

So, I want to get the list of all custom functions and member functions contained in a specified QM function, and then export them programmatically.

I noticed that in the Make exe dialog shown below, there is an option to output this list to the output pane.

If possible, could you share the source code of that feature? I want to try using ChatGPT to modify the code to achieve the functionality I need.
Thank you very much.

Add functions or folders to a .qml file

Sun, 30 Aug 2026 12:17:16 +0000

I want to modify the file named System.qml on the desktop to implement the following functions:
(Copy the System.qml file from the QM installation directory to the desktop, and remove the file's read-only attribute.)

1. Add a function named FileCopy2 after the function named FileCopy. The function content is: "I am the newly added function FileCopy2";

2. Create a folder named __Add under the folder named priveate, and add a function named AddTest. The function content is: "I am the newly added function AddTest".

After the following qm code is executed, it shows success, but an error is reported when opening the file:
Failed to open file 'C:\Users\Administrator\Desktop\System.qml'. Error reading items: The file is corrupt

Macro qml_mod

Code:
out

str dbfile="$desktop$\System.qml"

Sqlite db.Open(dbfile)

;; ===== 1. Add FileCopy2 function to File folder (pid=81) =====

SqliteStatement chk

chk.Prepare(db "SELECT rowid FROM items WHERE name='FileCopy2' AND pid=81;")

if chk.FetchRow

,out "FileCopy2 already exists, skip"

,chk.Delete

else

,chk.Delete

,;; Insert items record

,db.Exec("INSERT INTO items (pid, ord, flags, name, trigger, icon, td, guid) VALUES (81, NULL, 16777218, 'FileCopy2', NULL, NULL, NULL, randomblob(16));")

,;; Get the newly inserted rowid

,SqliteStatement tmp

,tmp.Prepare(db "SELECT last_insert_rowid();")

,tmp.FetchRow

,int newRowid = tmp.GetInt(0)

,tmp.Delete

,;; Insert texts record, rowid must be the same

,str ftext="[]I am the newly added function FileCopy2"

,ftext.SqlEscape

,str sqlText=F"INSERT INTO texts (rowid, id, date, text) VALUES ({newRowid}, {newRowid}, NULL, '{ftext}');"

,db.Exec(sqlText)

,out "Added FileCopy2"

;; ===== 2. Create __Add folder under root private folder (id=952, pid=0) =====

SqliteStatement chk2

chk2.Prepare(db "SELECT rowid FROM items WHERE name='__Add' AND pid=952;")

if chk2.FetchRow

,int folderRowid = chk2.GetInt(0)

,out "__Add folder already exists"

,chk2.Delete

else

,chk2.Delete

,;; Insert folder items record

,db.Exec("INSERT INTO items (pid, ord, flags, name, trigger, icon, td, guid) VALUES (952, NULL, 131078, '__Add', NULL, NULL, NULL, randomblob(16));")

,;; Get the newly inserted rowid

,SqliteStatement tmp2

,tmp2.Prepare(db "SELECT last_insert_rowid();")

,tmp2.FetchRow

,folderRowid = tmp2.GetInt(0)

,tmp2.Delete

,;; Insert empty texts record (folders also need one)

,str emptyText=""

,emptyText.SqlEscape

,str sqlFolderText=F"INSERT INTO texts (rowid, id, date, text) VALUES ({folderRowid}, {folderRowid}, NULL, '{emptyText}');"

,db.Exec(sqlFolderText)

,out F"Created __Add folder, rowid={folderRowid}"

;; ===== 3. Add AddTest function under __Add folder =====

SqliteStatement chk3

chk3.Prepare(db F"SELECT rowid FROM items WHERE name='AddTest' AND pid={folderRowid};")

if chk3.FetchRow

,out "AddTest already exists"

,chk3.Delete

else

,chk3.Delete

,;; Insert items record

,db.Exec(F"INSERT INTO items (pid, ord, flags, name, trigger, icon, td, guid) VALUES ({folderRowid}, NULL, 16777218, 'AddTest', NULL, NULL, NULL, randomblob(16));")

,;; Get the newly inserted rowid

,SqliteStatement tmp3

,tmp3.Prepare(db "SELECT last_insert_rowid();")

,tmp3.FetchRow

,int addRowid = tmp3.GetInt(0)

,tmp3.Delete

,;; Insert texts record

,str atext="[]I am the newly added function AddTest"

,atext.SqlEscape

,str sqlAddText=F"INSERT INTO texts (rowid, id, date, text) VALUES ({addRowid}, {addRowid}, NULL, '{atext}');"

,db.Exec(sqlAddText)

,out "Added AddTest"

db.Close

out "Operation completed, please reopen System.qml to verify."

getRetCode in exe

Fri, 28 Aug 2026 10:13:16 +0000

The code of macro T1 can execute successfully in both qm and exe,

but the code of macro T2 only executes successfully under qm and returns empty in exe.

The purpose of creating the `gr` function is just to be more concise.

Macro T1

Code:
sub.gr(_s); mes _s ;;OK

#sub gr

function str&code

getRetCode("" code)

#ret

hello

Macro T2

Code:
gr(_s); mes _s ;;qm: OK    exe: NO

#ret

hello

Function gr

Code:
function str&code

getRetCode("" code 2)

Function getRetCode

Code:
function $macro str&code [context] 

#exe addtextof "