| 1 | if (A_IsCompiled) { |
|---|
| 2 | ; Revisionsinformation bereits verf�gbar |
|---|
| 3 | } else { |
|---|
| 4 | ; Revisionsinformation nicht verf�gbar oder nicht zuverl�ssig, neu generieren |
|---|
| 5 | if (FileExist(".svn")<>False) { |
|---|
| 6 | ; .svn existiert, scheint also ausgecheckt worden zu sein |
|---|
| 7 | RegRead,TSVNPath,HKLM,SOFTWARE\TortoiseSVN,Directory |
|---|
| 8 | RegRead,SVNPath,HKLM,SOFTWARE\CollabNet\Subversion\1.5.4\Client,Install Location |
|---|
| 9 | if (TSVNPath<>"") { |
|---|
| 10 | ; fein, TSVN ist installiert! |
|---|
| 11 | RunWait, "%TSVNPath%bin\SubWCRev.exe" "." "Source\_subwcrev1.tmpl.ahk" "Source\_subwcrev1.generated.ahk",,Hide |
|---|
| 12 | FileRead,TSVNRevFull,Source\_subwcrev1.generated.ahk |
|---|
| 13 | RegExMatch(TSVNRevFull,"""(.*)""",SubPat) |
|---|
| 14 | Revision := SubPat1 |
|---|
| 15 | } else if (SVNPath<>"") { |
|---|
| 16 | ; fein, CollabNet-SVN-Client ist installiert! |
|---|
| 17 | RunWait, %comspec% /c ""%SVNPath%\svnversion.exe" "." >"Source\_svnversion.generated.txt"",,Hide |
|---|
| 18 | FileRead,SVNRevFull,Source\_svnversion.generated.txt |
|---|
| 19 | RegExMatch(SVNRevFull,"(.*)$",SubPat) |
|---|
| 20 | Revision := SubPat1 |
|---|
| 21 | } else { |
|---|
| 22 | ; nichts installiert. Was jetzt? |
|---|
| 23 | Revision := "<unknown>" |
|---|
| 24 | } |
|---|
| 25 | } else { |
|---|
| 26 | ; kein .svn-Verzeichnis. Was jetzt? |
|---|
| 27 | Revision := "<unknown>" |
|---|
| 28 | } |
|---|
| 29 | } |
|---|
| 30 | |
|---|
| 31 | name=Neo 2.0 r%Revision%-r%CompRevision% (%A_ScriptName%) |
|---|
| 32 | enable=Aktiviere %name% |
|---|
| 33 | disable=Deaktiviere %name% |
|---|
| 34 | #LTrim ; Quelltext kann einger�ckt werden |
|---|
| 35 | |
|---|
| 36 | SetCapsLockState Off |
|---|
| 37 | Gosub, SaveNumLockState |
|---|
| 38 | SetNumLockState Off |
|---|
| 39 | OnExit, exitprogram |
|---|
| 40 | SetScrollLockState Off |
|---|
| 41 | KeyboardLED(2,"off") ; deaktivieren, falls sie doch brennt |
|---|
| 42 | |
|---|
| 43 | EnvGet, WindowsEnvAppDataFolder, APPDATA |
|---|
| 44 | ApplicationFolder = %WindowsEnvAppDataFolder%\NEO2 |
|---|
| 45 | FileCreateDir, %ApplicationFolder% |
|---|
| 46 | ini = %ApplicationFolder%\NEO2.ini |
|---|
| 47 | |
|---|
| 48 | IniRead,zeigeLockBox,%ini%,Global,zeigeLockBox,1 |
|---|
| 49 | IniRead,zeigeModusBox,%ini%,Global,zeigeModusBox,1 |
|---|
| 50 | IniRead,UseMod4Light,%ini%,Global,UseMod4Light,1 |
|---|
| 51 | IniRead,striktesMod2Lock,%ini%,Global,striktesMod2Lock,0 |
|---|
| 52 | IniRead,dynamischesCompose,%ini%,Global,dynamischesCompose,0 |
|---|
| 53 | |
|---|
| 54 | regread,inputlocale,HKEY_CURRENT_USER,Keyboard Layout\Preload,1 |
|---|
| 55 | regread,inputlocalealias,HKEY_CURRENT_USER,Keyboard Layout\Substitutes,%inputlocale% |
|---|
| 56 | if (inputlocalealias<>inputlocale=%inputlocalealias% and inputlocale<>00000407) { |
|---|
| 57 | suspend |
|---|
| 58 | regread,inputlocale,HKEY_LOCAL_MACHINE,SYSTEM\CurrentControlSet\Control\Keyboard Layouts\%inputlocale%,Layout Text |
|---|
| 59 | msgbox, 48, Warnung!, |
|---|
| 60 | ( |
|---|
| 61 | Nicht kompatibles Tastaturlayout: |
|---|
| 62 | `t%inputlocale% |
|---|
| 63 | `nDas deutsche QWERTZ muss als Standardlayout eingestellt |
|---|
| 64 | sein, damit %name% wie erwartet funktioniert. |
|---|
| 65 | `n�ndern Sie die Tastatureinstellung unter |
|---|
| 66 | `tSystemsteuerung |
|---|
| 67 | `t-> Regions- und Sprachoptionen |
|---|
| 68 | `t-> Sprachen |
|---|
| 69 | `t-> Details... `n |
|---|
| 70 | ) |
|---|
| 71 | exitapp |
|---|
| 72 | } |
|---|
| 73 | |
|---|
| 74 | wasNonShiftKeyPressed := 0 |
|---|
| 75 | isShiftRPressed := 0 |
|---|
| 76 | isShiftLPressed := 0 |
|---|
| 77 | isShiftPressed := 0 |
|---|
| 78 | isMod2Locked := 0 |
|---|
| 79 | IsMod3RPressed := 0 |
|---|
| 80 | IsMod3LPressed := 0 |
|---|
| 81 | IsMod3Pressed := 0 |
|---|
| 82 | IsMod4RPressed := 0 |
|---|
| 83 | IsMod4LPressed := 0 |
|---|
| 84 | IsMod4Pressed := 0 |
|---|
| 85 | IsMod4Locked := 0 |
|---|
| 86 | EbeneAktualisieren() |
|---|
| 87 | |
|---|
| 88 | |
|---|
| 89 | if (dynamischesCompose) |
|---|
| 90 | LoadCurrentCompose() |
|---|
| 91 | else |
|---|
| 92 | LoadDefaultCompose() |
|---|
