AutoHotkey Community

;//Command Syntax: IniRead, OutputVar, Filename, Section, Key[, Default]
IniRead(ByRef OutputVar, Filename, Section, Key, Default = "") {
   IniRead, OutputVar, %Filename%, %Section%, %Key%, %Default%
   return, OutputVar
}

;//Command Syntax: IniRead, OutputVar, Filename, Section, Key[, Default]
IniRead(p_OutputVar, Filename, Section, Key, Default = "") {
   IniRead, OutputVar, %Filename%, %Section%, %Key%, %Default%
   %p_OutputVar%:=OutputVar
   return, OutputVar
}

ret:=IniRead(OutputVar, Filename, Section, Key, Default)
ret:=IniRead("", Filename, Section, Key, Default)
ret:=IniRead("OutputVar", "123.ini", "Section", "Key", "Default")
ret:=IniRead("", "123.ini", "Section", "Key", "Default")
IniRead(OutputVar, "123.ini", "Section", "Key", "Default")

If ProcExist("Notepad.exe")
    WinClose,% "ahk_pid " Errorlevel

ProcExist(PID_or_Name=""){
    Process, Exist, % (PID_or_Name="") ? DllCall("GetCurrentProcessID") : PID_or_Name
    Return Errorlevel
}

if GetKeyState("Shift")
{
   ;some code

Index: Functions.ahk
===================================================================
--- Functions.ahk   (revision 56)
+++ Functions.ahk   (working copy)
@@ -67,6 +67,16 @@
    EnvGet, v, %EnvVarName%
    Return, v
 }
+EnvAdd(Var, Value, TimeUnits) {
+   v:= Var
+   EnvAdd, v, %Value%, %TimeUnits%
+   Return, v
+}   
+EnvSub(Var, Value, TimeUnits) {
+   v:= Var
+   EnvSub, v, %Value%, %TimeUnits%
+   Return, v
+}   
 FileGetAttrib(Filename = "") {
    FileGetAttrib, v, %Filename%
    Return, v
@@ -148,7 +158,7 @@
    Return, v
 }
 Run(Target, WorkingDir = "", Mode = "") {
-   Run, %Target%, %WorkingDir%, %Mode%, %v%
+   Run, %Target%, %WorkingDir%, %Mode%, v
    Return, v   
 }
 SoundGet(ComponentType = "", ControlType = "", DeviceNumber = "") {
@@ -167,43 +177,44 @@
    SplitPath, InputVar, OutFileName, OutDir, OutExtension, OutNameNoExt, OutDrive
 }
 StringGetPos(ByRef InputVar, SearchText, Mode = "", Offset = "") {
-   StringGetPos, v, %InputVar%, %SearchText%, %Mode%, %Offset%
+   StringGetPos, v, InputVar, %SearchText%, %Mode%, %Offset%
    Return, v
 }
 StringLeft(ByRef InputVar, Count) {
-   StringLeft, v, %InputVar%, %Count%
+   StringLeft, v, InputVar, %Count%
    Return, v
 }
 StringLen(ByRef InputVar) {
-   StringLen, v, %InputVar%
+   StringLen, v, InputVar
    Return, v
 }
 StringLower(ByRef InputVar, T = "") {
-   StringLower, v, %InputVar%, %T%
+   StringLower, v, InputVar, %T%
    Return, v
 }
 StringMid(ByRef InputVar, StartChar, Count , L = "") {
-   StringMid, v, %InputVar%, %StartChar%, %Count%, %L%
+   StringMid, v, InputVar, %StartChar%, %Count%, %L%
    Return, v
 }
-StringReplace(ByRef InputVar, SearchText, ReplaceText = "", All = "") {
-   StringReplace, v, %InputVar%, %SearchText%, %ReplaceText%, %All%
+StringReplace(inputStr, SearchText, ReplaceText = "", All = "") {
+   InputVar:= inputStr
+   StringReplace, v, InputVar, %SearchText%, %ReplaceText%, %All%
    Return, v
 }
 StringRight(ByRef InputVar, Count) {
-   StringRight, v, %InputVar%, %Count%
+   StringRight, v, InputVar, %Count%
    Return, v
 }
 StringTrimLeft(ByRef InputVar, Count) {
-   StringTrimLeft, v, %InputVar%, %Count%
+   StringTrimLeft, v, InputVar, %Count%
    Return, v
 }
 StringTrimRight(ByRef InputVar, Count) {
-   StringTrimRight, v, %InputVar%, %Count%
+   StringTrimRight, v, InputVar, %Count%
    Return, v
 }
 StringUpper(ByRef InputVar, T = "") {
-   StringUpper, v, %InputVar%, %T%
+   StringUpper, v, InputVar, %T%
    Return, v
 }
 SysGet(Subcommand, Param3 = "") {

; #Include Functions.ahk
#NoEnv
SendMode Input
SetWorkingDir %A_ScriptDir%

; Call this once, if the library is not explicitly included.
Functions()
MsgBox % StringReplace(var := "hello world!", "!", "?", True)

StringReplace(ByRef InputVar, SearchText, ReplaceText = "", All = "") {
   StringReplace, v, %InputVar%, %SearchText%, %ReplaceText%, %All%
   Return, v
}

If Not Functions() ; make sure the stdlib gets loaded
    ExitApp
Run, notepad.exe,,, PID ; this is working
Gosub, ShowPID
PID := Run("notepad.exe") ; this is _not_ working
Gosub, ShowPID   
ExitApp

ShowPID:
    WinWaitActive, Untitled ahk_class Notepad
    WinClose, Untitled ahk_class Notepad
    MsgBox, Process ID was:`n%PID%
Return

Run(Target, WorkingDir = "", Mode = "") {
   Run, %Target%, %WorkingDir%, %Mode%, %v%
   Return, v   
}

Run(Target, WorkingDir = "", Mode = "") {
   Run, %Target%, %WorkingDir%, %Mode%, v
   Return, v   
}

If IfBetween(var, 1, 5)
If IfNotContains(var, MatchList)
If IfIs(var, "integer")
If IfNotIn(var, MatchList)

If Between(var, 1, 5)
If Not Contains(var, MatchList)
If IsType(var, "integer")
If Not Contains(var, MatchList)