[Source][Zarządzanie oknami] Manager okien

wefhy · 22 Października 2012

W związku z tym, że kilka dni temu pojawił się podobny kod, a użytkownicy narzekali, że mało opcji, wrzucam swój.

skróty:

szybko klikniecie 2xalt+litera - zapisanie okna

alt+litera - aktywowanie zapisanego okna

alt+shift+litera - usunięcie zapisu

alt+end - usunięcie wszystkich zapisów

win+esc - wyjście z programu

1.png?psid=1 2.png?psid=1

Z tego co pamiętam nie działa w aktulalnej wersji start z systemem, instrukcja i trwale zapisane okna i kilka(chyba 3 rzeczy) nie są przetłumaczone w jedną bądź drugą stronę(na początku nie planowałem wyboru języka)

W menu tray widać cos takiego jak "opcje", można tam dostosować ustawienia, wyświetlić listę aktualnie zapisanych okien, nadać im priorytet "always on top" itd.

W pliku ini można zmienić język

[Language]

Active=Polski

lub

[Language]

Active=English

niestety, ale "nie mam uprawnień do załadowania tych plików" więc muszę podać tutaj.

Zawartość Pliku au3:

#include <Array.au3>
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <EditConstants.au3>
Opt("GUIOnEventMode", 1)
Opt("TrayOnEventMode", 1)
Opt("TrayMenuMode", 3)
#Region ### Global
Global Const $version="1.6.1.1"
Global $litera="f"
Global $test =0
Global $b="qwertyuiopasdfghjklzxcvbnm"
Global $_Ile_Liter=StringLen($
Global $aktual=0
Global $skroty[$_Ile_Liter+1]
Global $Title[$_Ile_Liter+1]
Global $ktory
Global $Form1=0
Global $Form2=0
Global $_ON=True
Global $Button[8]
Global $Checkbox[11]
Global $_S_Checkbox[11]
Global $_S_Czytanie[11]
Global $_Alert_Active
Global $_Alert_Close
Global $_Alert_Not_Saved
Global $_Alert_Save
Global $_Alert_Save_Delete
Global $_Alert_Use_When_Off
Global $_Show_Options_With_Program_Start
Global $q
Global $_Checkbox_Delete[$_Ile_Liter+1]
Global $_Button_Always_On_Top[$_Ile_Liter+1]
Global $CheckAll
Global $LaWLabel[$_Ile_Liter+1]
Global $LaWTitle[$_Ile_Liter+1]
Global $name[$_Ile_Liter+1]
Global $ininame="Windows Manager.ini"
Global $przed[2]
Global $AOT[$_Ile_Liter+1]

Global $LanguageAcvtive
Global $_Language_TrayTipTitle
Global $_Language_TrayTipText1
Global $_Language_TrayTipText2
Global $_Language_Options
Global $_Language_T_Instrukcja
Global $_Language_T_Exit
Global $_Language_T_On_Off
Global $_Language_T_Clean
Global $_Language_About
Global $_Language_Alert_Save_Delete_Title
Global $_Language_Alert_Save_Delete_Text
Global $_Language_Alert_Active_Title
Global $_Language_Alert_Active_Text
Global $_Language_Alert_Not_Saved_Title
Global $_Language_Alert_Not_Saved_Text
Global $_Language_Alert_Save_Title
Global $_Language_Alert_Save_Text
Global $_Language_FuncNotWorking
Global $_Language_Alert_Close1
Global $_Language_Alert_Close2
Global $_Language_Button1
Global $_Language_Button2
Global $_Language_Button3
Global $_Language_Button4
Global $_Language_Button5
Global $_Language_Button6
Global $_Language_Button7
Global $_Language_Checkbox1
Global $_Language_Checkbox2
Global $_Language_Checkbox3
Global $_Language_Checkbox4
Global $_Language_Checkbox5
Global $_Language_Checkbox6
Global $_Language_Checkbox7
Global $_Language_Checkbox8
Global $_Language_Checkbox9
Global $_Language_Checkbox10
Global $_Language_Form2
Global $_Language_symbol
Global $_Language_Name
Global $_Language_Refresh
Global $_Language_CheckAll
Global $_Language_Delete
Global $_Language_AlwaysOnTop
Global $_Language_Add

#EndRegion ###
_Read_Settings()
_UseSettings()
_LanguageSet()
#Region ### Tray
If $_Show_Options_With_Program_Start=False Then TrayTip($_Language_TrayTipTitle ,$_Language_TrayTipText1 & @CRLF & $_Language_TrayTipText2, 5000)
$T_options = TrayCreateItem($_Language_Options) ;zapisano w lang jako options
$T_instrukcja = TrayCreateItem($_Language_T_Instrukcja)
$T_exit = TrayCreateItem($_Language_T_Exit)
$T_ON_OFF = TrayCreateItem($_Language_T_On_Off)
$T_Clean = TrayCreateItem($_Language_T_Clean)
$T_About = TrayCreateItem($_Language_About);nazwa w lang określona w About
TrayItemSetOnEvent($T_exit, "Exi")
TrayItemSetOnEvent($T_options, "Opcje")
TrayItemSetOnEvent($T_instrukcja, "Instrukcja")
TrayItemSetOnEvent($T_ON_OFF, "_ON_OFF")
TrayItemSetOnEvent($T_Clean, "clean")
TrayItemSetOnEvent($T_About, "_About")
#EndRegion ###

HotKeySet("#{esc}", "exi")
HotKeySet("!{end}", "clean")
For $v=1 to $_Ile_Liter
$litera =StringMid($b,$v ,1 )
HotKeySet("!" & $litera, $litera)
HotKeySet("!+" & $litera, $litera&$litera)
Next
AdlibRegister("_WinExists", 1000)
AdlibRegister("_WinTitle", 5000)

If $_Show_Options_With_Program_Start=True Then Opcje()
#Region ### About
$About = GUICreate($_Language_About, 341, 390, 192, 124) ;nazwa w lang określona w About
GUISetOnEvent($GUI_EVENT_CLOSE, "_EndAbout")
$_O_Programie = GUICtrlCreateEdit("Autor: Wefhy" & @CRLF & "Licencja: Wolna" & @CRLF & "Wersja: " & $version, 0, 0, 340, 385, $ES_Readonly)
GUISetState(@SW_HIDE)
If (Not FileExists($ininame)) Or ( IniRead($ininame, "Inne", "WidzianoAbout", 0)=0) Then
_About()
IniWrite($ininame, "Inne", "WidzianoAbout", "1")
EndIf
#EndRegion ### -->About

While 1
sleep(100)
WEnd

Func _func1($abc, $usun=0)
$q=1
$ktory=StringInStr($b, $abc)
if $usun=1 Then
$skroty[$ktory]=0
If $_Alert_Save_Delete=True Then TrayTip($_Language_Alert_Save_Delete_Title, $_Language_Alert_Save_Delete_Text, 500)
Return
EndIf
$test+=1
Sleep(50)
if $test =2 and $aktual=$abc Then ;xxx
_func2()
endif
$aktual=$abc ;xxx
Sleep(300)
$test=0
if not $skroty[$ktory]=0 Then
WinActivate($skroty[$ktory])
If $_Alert_Active=True And $q=1 Then TrayTip($_Language_Alert_Active_Title, $_Language_Alert_Active_Text, 500)
EndIf
If $_Alert_Not_Saved=True And $q=1 And $skroty[$ktory]=0 Then TrayTip($_Language_Alert_Not_Saved_Title, $_Language_Alert_Not_Saved_Text, 500, 2)
EndFunc ;==> Func1
Func _func2()
$q=0
$test=0
$skroty[$ktory]=WinGetHandle("[ACTIVE]")
$Title[$ktory]=WinGetTitle($skroty[$ktory])
If $_Alert_Save=True Then TrayTip($_Language_Alert_Save_Title, $_Language_Alert_Save_Text & $Title[$ktory], 500)
EndFunc ;==> Func2
Func NieDziala()
ToolTip($_Language_FuncNotWorking)
Sleep(2000)
ToolTip("")
EndFunc ;==> NieDziala
Func _WinExists()
For $sprawdzanie=1 to $_Ile_Liter
If Not $skroty[$sprawdzanie]=0 Then
If Not WinExists($skroty[$sprawdzanie]) Then
If $_Alert_Close=True Then TrayTip($_Language_Alert_Close1 & $_Language_Alert_Close2, $_Language_Alert_Close1 & $Title[$sprawdzanie] & $_Language_Alert_Close2, 500)
$skroty[$sprawdzanie]=0
EndIf
EndIf
Next
EndFunc ;==> _WinExists
Func _WinTitle()
For $sprawdzanie=1 to $_Ile_Liter
If Not $skroty[$sprawdzanie]=0 Then
$Title[$sprawdzanie]=WinGetTitle($skroty[$sprawdzanie])
EndIf
Next
EndFunc ;==> _WinTitle
Func exi()
Exit
EndFunc ;==> Exi
Func clean()
For $cleaning=1 to $_Ile_Liter
$skroty[$cleaning]=0
Next
EndFunc ;==> Clean
Func Opcje()
If WinExists($Form2) Then GUIDelete($Form2)
AdlibUnRegister("RefreshLaW")
_Read_Settings()
$Form1 = GUICreate("Opcje", 330, 531, 278, 140, BitOR($GUI_SS_DEFAULT_GUI,$WS_MAXIMIZEBOX,$WS_SIZEBOX,$WS_THICKFRAME,$WS_TABSTOP)); zapisano w lang jako options
GUISetOnEvent($GUI_EVENT_CLOSE, "EndOpcje")
GUISetIcon("C:\Users\Krzys\Desktop\AutoIt\Nowy folder\Atari800WinPLus\Atari800Win.exe", -1)
$Button[1] = GUICtrlCreateButton($_Language_Button1, 8, 496, 75, 25)
GUICtrlSetOnEvent(-1, "EndOpcje")
$Button[2] = GUICtrlCreateButton($_Language_Button2, 88, 464, 75, 57, $BS_MULTILINE)
GUICtrlSetOnEvent(-1, "Instrukcja")
$Button[3] = GUICtrlCreateButton($_Language_Button3, 256, 8, 67, 49, $BS_MULTILINE)
GUICtrlSetOnEvent(-1, "_LookAtWins")
$Button[4] = GUICtrlCreateButton($_Language_Button4, 256, 64, 67, 57, $BS_MULTILINE)
GUICtrlSetState(-1,$GUI_DISABLE)
$Button[5] = GUICtrlCreateButton($_Language_Button5, 248, 496, 75, 25)
GUICtrlSetOnEvent(-1, "OK")
$Button[6] = GUICtrlCreateButton($_Language_Button6, 168, 496, 75, 25)
GUICtrlSetOnEvent(-1, "Save")
$Button[7] = GUICtrlCreateButton($_Language_Button7, 8, 464, 75, 25)
GUICtrlSetOnEvent(-1, "_Default")
$Checkbox[1] = GUICtrlCreateCheckbox($_Language_Checkbox1, 168, 464, 153, 25)
$Checkbox[2] = GUICtrlCreateCheckbox($_Language_Checkbox2, 8, 8, 241, 25, BitOR($GUI_SS_DEFAULT_CHECKBOX,$BS_MULTILINE))
GUICtrlSetOnEvent(-1, "niedziala")
$Checkbox[3] = GUICtrlCreateCheckbox($_Language_Checkbox3, 8, 432, 313, 25, BitOR($GUI_SS_DEFAULT_CHECKBOX,$BS_MULTILINE))
GUICtrlSetOnEvent(-1, "_ON_OFF") ;trzeba dodać aktualizowanie zaznaczenia rzeczywistego
$Checkbox[4] = GUICtrlCreateCheckbox($_Language_Checkbox5, 8, 168, 241, 25, BitOR($GUI_SS_DEFAULT_CHECKBOX,$BS_MULTILINE))
$Checkbox[5] = GUICtrlCreateCheckbox($_Language_Checkbox6, 8, 136, 241, 25, BitOR($GUI_SS_DEFAULT_CHECKBOX,$BS_MULTILINE))
$Checkbox[6] = GUICtrlCreateCheckbox($_Language_Checkbox7, 8, 104, 241, 25, BitOR($GUI_SS_DEFAULT_CHECKBOX,$BS_MULTILINE))
$Checkbox[7] = GUICtrlCreateCheckbox($_Language_Checkbox4, 8, 72, 241, 25, BitOR($GUI_SS_DEFAULT_CHECKBOX,$BS_MULTILINE))
$Checkbox[8] = GUICtrlCreateCheckbox($_Language_Checkbox8, 8, 40, 241, 25, BitOR($GUI_SS_DEFAULT_CHECKBOX,$BS_MULTILINE))
$Checkbox[9] = GUICtrlCreateCheckbox($_Language_Checkbox9, 8, 200, 241, 25)
$Checkbox[10] = GUICtrlCreateCheckbox($_Language_Checkbox10, 8, 232, 313, 25, BitOR($GUI_SS_DEFAULT_CHECKBOX,$BS_MULTILINE))
GUICtrlSetOnEvent(-1, "niedziala")
GUISetState(@SW_SHOW)
_Refresh()
GUICtrlSetState($Checkbox[1], $GUI_UNCHECKED)
EndFunc ;==> Opcje
Func EndOpcje()
If WinExists($Form1) Then GUIDelete($Form1)
EndFunc ;==> EndOpcje
Func Instrukcja() ;Zrobić
Run("notepad.exe")
;ustawić text lub otworzyć text
EndFunc ;==> Instrukcja
Func _ON_OFF()
Switch $_ON
Case True
$_ON=False
For $v=1 to $_Ile_Liter
$litera =StringMid($b,$v ,1 )
HotKeySet("!" & $litera)
HotKeySet("!+" & $litera)
Next
Case False
$_ON=True
For $v=1 to $_Ile_Liter
$litera =StringMid($b,$v ,1 )
HotKeySet("!" & $litera, $litera)
HotKeySet("!+" & $litera, $litera&$litera)
Next
EndSwitch
EndFunc ;==> _ON_OFF
Func _Read_Settings()
For $czytanie=1 To UBound($_S_Checkbox)-1
$_S_True=0
If $czytanie=8 or $czytanie=10 Then $_S_True=1
$_S_Checkbox[$czytanie]=IniRead($ininame, "Opcje", "Checkbox"&$czytanie, $_S_True)
$_S_Czytanie[$czytanie]=$_S_Checkbox[$czytanie]
Next
EndFunc ;==> _Read_Settings
Func Save()
GUICtrlSetState($Button[6],$GUI_DISABLE)
_CheckRead()
_UseSettings()
For $czytanie=1 To UBound($Checkbox)-1
IniWrite($ininame, "Opcje", "Checkbox"&$czytanie, $_S_Czytanie[$czytanie])
Next
EndFunc ;==> Save
Func _Default()
For $czytanie=1 To UBound($_S_Checkbox)-1
$_S_True=0
If $czytanie=8 or $czytanie=10 Then $_S_True=1
$_S_Checkbox[$czytanie]=$_S_True
Next
_Refresh()
EndFunc ;==> Default
Func _Refresh()
For $zaznaczanie=1 to UBound($Checkbox)-1
If $_S_Checkbox[$zaznaczanie]=1 Then GUICtrlSetState($Checkbox[$zaznaczanie], $GUI_CHECKED)
If $_S_Checkbox[$zaznaczanie]=0 Then GUICtrlSetState($Checkbox[$zaznaczanie], $GUI_UNCHECKED)
Next
EndFunc ;==> Refresh
Func OK()
Save()
EndOpcje()
EndFunc ;==> OK
Func _LookAtWins()
EndOpcje()
$CheckAll=False
$Form2 = GUICreate($_Language_Form2, 720, 550, 15, 15, BitOR($GUI_SS_DEFAULT_GUI,$WS_MAXIMIZEBOX,$WS_TABSTOP))
GUISetOnEvent($GUI_EVENT_CLOSE, "Opcje")
GUISetState(@SW_HIDE)
GUICtrlCreateLabel($_Language_symbol, 10, 5)
;GUICtrlCreateLabel("Uchwyt", 80, 5)
GUICtrlCreateLabel($_Language_Name, 100, 5)
GUICtrlCreateButton($_Language_Refresh, 360, 5)
GUICtrlSetOnEvent(-1, "RefreshLaW2")
GUICtrlCreateButton($_Language_CheckAll, 460, 5)
GUICtrlSetOnEvent(-1, "CheckAll")
GUICtrlCreateButton($_Language_Delete, 560, 5)
GUICtrlSetOnEvent(-1, "delete")
GUICtrlCreateLabel($_Language_AlwaysOnTop, 600, 11)

RefreshLaW2()
AdlibRegister("RefreshLaW", 1000)
GUISetState(@SW_SHOW)
EndFunc ;==> LookAtWins
Func delete() ;Dla LookAtWins
For $czytanie=1 to UBound($_Checkbox_Delete)-1
If GUICtrlRead($_Checkbox_Delete[$czytanie])=1 Then _func1(StringMid($b, $czytanie, 1), 1)
Next
EndFunc ;==> Delete
Func CheckAll() ;Dla LookAtWins
For $zaznaczanie=1 To $_Ile_Liter
If $CheckAll=False Then
GUICtrlSetState($_Checkbox_Delete[$zaznaczanie], $GUI_CHECKED)
Else
GUICtrlSetState($_Checkbox_Delete[$zaznaczanie], $GUI_UNCHECKED)
EndIf
Next
If $CheckAll=False Then
$CheckAll=True
Else
$CheckAll=False
EndIf
EndFunc ;==> CheckAll
Func RefreshLaW() ;Dla LookAtWins
For $czytanie=1 To $_Ile_Liter
If ($LaWLabel[$czytanie]=0 And Not $skroty[$czytanie]=0) Or ($skroty[$czytanie]=0 And Not $LaWLabel[$czytanie]=0) Then RefreshLaW2()
If Not $name[$czytanie]=$Title[$czytanie] Then GUICtrlSetData($LaWTitle[$czytanie], $Title[$czytanie])
Next
;If Not $name=$title then MsgBox(0, "", "")
EndFunc ;==> RefreshLaW
Func RefreshLaW2() ;Dla LookAtWins
$linia=1
;$name=$Title
For $okno=1 To $_Ile_Liter
If Not $LaWLabel[$okno]=0 Then GUICtrlDelete($LaWLabel[$okno])
If Not $LaWTitle[$okno]=0 Then GUICtrlDelete($LaWTitle[$okno])
If Not $_Checkbox_Delete[$okno]=0 Then GUICtrlDelete($_Checkbox_Delete[$okno])
If Not $_Button_Always_On_Top[$okno]=0 Then GUICtrlDelete($_Button_Always_On_Top[$okno])
If Not $skroty[$okno]=0 Then
$LaWLabel[$okno]=GUICtrlCreateLabel(StringMid($b, $okno, 1), 15, 10+20*$linia)
;GUICtrlCreateLabel($skroty[$okno], 45, 10+20*$okno)
$name[$okno]=$Title[$okno]
$LaWTitle[$okno]=GUICtrlCreateLabel($title[$okno], 45, 10+20*$linia, 525) ;title
$_Checkbox_Delete[$okno] = GUICtrlCreateCheckbox("", 570, 10+20*$linia, 20, 20)
If $AOT[$okno]=0 Then
$_Button_Always_On_Top[$okno] =GUICtrlCreateButton($_Language_Add, 600, 10+20*$linia, 60, 20)
GUICtrlSetOnEvent(-1, "_Always_On_Top" & $okno)
Else
$_Button_Always_On_Top[$okno] =GUICtrlCreateButton($_Language_Delete, 600, 10+20*$linia, 60, 20)
GUICtrlSetOnEvent(-1, "_Always_On_Top0" & $okno)
EndIf
$linia+=1
Else
$LaWLabel[$okno]=0
$LaWTitle[$okno]=0
$_Checkbox_Delete[$okno]=0
$_Button_Always_On_Top[$okno]=0
EndIf
Next
EndFunc ;==> RefreshLaW2
Func _Uziemienie()
EndFunc ;==> _Uziemienie
Func _CheckRead()
For $czytanie=1 to UBound($Checkbox)-1
$_S_Czytanie[$czytanie]=GUICtrlRead($Checkbox[$czytanie])
If $_S_Czytanie[$czytanie]=4 Then $_S_Czytanie[$czytanie]=0
Next
EndFunc ;==> _CheckRead
Func _UseSettings()
If $_S_Czytanie[1]=1 Then clean()
If $_S_Czytanie[2]=1 Then
_RunWithWindows(1)
Else
_RunWithWindows(0)
EndIf
If $_S_Czytanie[4]=1 Then
$_Alert_Save=True
Else
$_Alert_Save=False
EndIf
If $_S_Czytanie[5]=1 Then
$_Alert_Active=True
Else
$_Alert_Active=False
EndIf
If $_S_Czytanie[6]=1 Then
$_Alert_Not_Saved=True
Else
$_Alert_Not_Saved=False
EndIf
If $_S_Czytanie[7]=1 Then
$_Alert_Save_Delete=True
Else
$_Alert_Save_Delete=False
EndIf
If $_S_Czytanie[8]=1 Then
$_Alert_Close=True
Else
$_Alert_Close=False
EndIf
If $_S_Czytanie[9]=1 Then
$_Show_Options_With_Program_Start=True
Else
$_Show_Options_With_Program_Start=False
EndIf
If $_S_Czytanie[10]=1 Then ;Zrobić!
$_Alert_Use_When_Off=True
Else
$_Alert_Use_When_Off=False
EndIf
EndFunc ;==> _UseSettings
Func _RunWithWindows($_Tak_Nie) ;Uzupełnić
;If $_Tak_Nie=1 Then FileWrite("C:\Users\Krzys\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Startup\Windows Manager.bat", "Start " & @ScriptDir & @ScriptName)
If $_Tak_Nie=1 Then FileCreateShortcut(@ScriptDir & @ScriptName, @AppDataDir & "\Microsoft\Windows\Start Menu\Programs\Startup\Windows Manager.lnk")
If $_Tak_Nie=0 Then FileDelete(@AppDataDir & "\Microsoft\Windows\Start Menu\Programs\Startup\Windows Manager.lnk")
EndFunc ;==> _RunWithWindows
Func _About()
If WinExists($Form1) Then
$przed[1]=$Form1
$przed[0]=1
GUISetState(@SW_HIDE, $Form1)
ElseIf WinExists($Form2) Then
$przed[1]=$Form2
$przed[0]=1
GUISetState(@SW_HIDE, $Form2)
Else
$przed[0]=0
EndIf
GUISetState(@SW_SHOW, $About)
EndFunc ;==> _About
Func _EndAbout()
GUISetState(@SW_HIDE, $About)
If $przed[0]=1 Then GUISetState(@SW_SHOW, $przed[1])
EndFunc ;==> _EndAbout
Func AlwaysOnTop($v, $w)
If $AOT[$v]=1 Then
$AOT[$v]=0
Else
$AOT[$v]=1
EndIf
WinSetOnTop($skroty[$v], "", $w)
RefreshLaW2()
EndFunc
Func _LanguageSet()
$LanguageAcvtive = IniRead($ininame, "Language", "Active", "English")
$_Language_TrayTipTitle = IniRead($ininame, $LanguageAcvtive, "TrayTipTitle", "")
$_Language_TrayTipText1 = IniRead($ininame, $LanguageAcvtive, "TrayTipText1", "")
$_Language_TrayTipText2 = IniRead($ininame, $LanguageAcvtive, "TrayTipText2", "")
$_Language_Options = IniRead($ininame, $LanguageAcvtive, "options", "")
$_Language_T_Instrukcja = IniRead($ininame, $LanguageAcvtive, "T_Instrukcja", "")
$_Language_T_Exit = IniRead($ininame, $LanguageAcvtive, "T_exit", "")
$_Language_T_On_Off = IniRead($ininame, $LanguageAcvtive, "T_ON_OFF", "")
$_Language_T_Clean = IniRead($ininame, $LanguageAcvtive, "T_Clean", "")
$_Language_About = IniRead($ininame, $LanguageAcvtive, "About", "")
$_Language_Alert_Save_Delete_Title = IniRead($ininame, $LanguageAcvtive, "_Alert_Save_Delete_Title", "")
$_Language_Alert_Save_Delete_Text = IniRead($ininame, $LanguageAcvtive, "_Alert_Save_Delete_Text", "")
$_Language_Alert_Active_Title = IniRead($ininame, $LanguageAcvtive, "_Alert_Active_Title", "")
$_Language_Alert_Active_Text = IniRead($ininame, $LanguageAcvtive, "_Alert_Active_Text", "")
$_Language_Alert_Not_Saved_Title = IniRead($ininame, $LanguageAcvtive, "_Alert_Not_Saved_Title", "")
$_Language_Alert_Not_Saved_Text = IniRead($ininame, $LanguageAcvtive, "_Alert_Not_Saved_Text", "")
$_Language_Alert_Save_Title = IniRead($ininame, $LanguageAcvtive, "_Alert_Save_Title", "")
$_Language_Alert_Save_Text = IniRead($ininame, $LanguageAcvtive, "_Alert_Save_Text", "")
$_Language_FuncNotWorking = IniRead($ininame, $LanguageAcvtive, "FuncNotWorking", "")
$_Language_Alert_Close1 = IniRead($ininame, $LanguageAcvtive, "_Alert_Close1", "")
$_Language_Alert_Close2 = IniRead($ininame, $LanguageAcvtive, "_Alert_Close2", "")
$_Language_Button1 = IniRead($ininame, $LanguageAcvtive, "Button1", "")
$_Language_Button2 = IniRead($ininame, $LanguageAcvtive, "Button2", "")
$_Language_Button3 = IniRead($ininame, $LanguageAcvtive, "Button3", "")
$_Language_Button4 = IniRead($ininame, $LanguageAcvtive, "Button4", "")
$_Language_Button5 = IniRead($ininame, $LanguageAcvtive, "Button5", "")
$_Language_Button6 = IniRead($ininame, $LanguageAcvtive, "Button6", "")
$_Language_Button7 = IniRead($ininame, $LanguageAcvtive, "Button7", "")
$_Language_Checkbox1 = IniRead($ininame, $LanguageAcvtive, "Checkbox1", "")
$_Language_Checkbox2 = IniRead($ininame, $LanguageAcvtive, "Checkbox2", "")
$_Language_Checkbox3 = IniRead($ininame, $LanguageAcvtive, "Checkbox3", "")
$_Language_Checkbox4 = IniRead($ininame, $LanguageAcvtive, "Checkbox4", "")
$_Language_Checkbox5 = IniRead($ininame, $LanguageAcvtive, "Checkbox5", "")
$_Language_Checkbox6 = IniRead($ininame, $LanguageAcvtive, "Checkbox6", "")
$_Language_Checkbox7 = IniRead($ininame, $LanguageAcvtive, "Checkbox7", "")
$_Language_Checkbox8 = IniRead($ininame, $LanguageAcvtive, "Checkbox8", "")
$_Language_Checkbox9 = IniRead($ininame, $LanguageAcvtive, "Checkbox9", "")
$_Language_Checkbox10 = IniRead($ininame, $LanguageAcvtive, "Checkbox10", "")
$_Language_Form2 = IniRead($ininame, $LanguageAcvtive, "Form2", "")
$_Language_symbol = IniRead($ininame, $LanguageAcvtive, "symbol", "")
$_Language_Name = IniRead($ininame, $LanguageAcvtive, "Name", "")
$_Language_Refresh = IniRead($ininame, $LanguageAcvtive, "Refresh", "")
$_Language_CheckAll = IniRead($ininame, $LanguageAcvtive, "CheckAll", "")
$_Language_Delete = IniRead($ininame, $LanguageAcvtive, "Delete", "")
$_Language_AlwaysOnTop = IniRead($ininame, $LanguageAcvtive, "AlwaysOnTop", "")
$_Language_Add = IniRead($ininame, $LanguageAcvtive, "Add", "")
EndFunc

#Region ### _Always_On_Top
Func _Always_On_Top1()
AlwaysOnTop(1,1)
EndFunc
Func _Always_On_Top2()
AlwaysOnTop(2,1)
EndFunc
Func _Always_On_Top3()
AlwaysOnTop(3,1)
EndFunc
Func _Always_On_Top4()
AlwaysOnTop(4,1)
EndFunc
Func _Always_On_Top5()
AlwaysOnTop(5,1)
EndFunc
Func _Always_On_Top6()
AlwaysOnTop(6,1)
EndFunc
Func _Always_On_Top7()
AlwaysOnTop(7,1)
EndFunc
Func _Always_On_Top8()
AlwaysOnTop(8,1)
EndFunc
Func _Always_On_Top9()
AlwaysOnTop(9,1)
EndFunc
Func _Always_On_Top10()
AlwaysOnTop(10,1)
EndFunc
Func _Always_On_Top11()
AlwaysOnTop(11,1)
EndFunc
Func _Always_On_Top12()
AlwaysOnTop(12,1)
EndFunc
Func _Always_On_Top13()
AlwaysOnTop(13,1)
EndFunc
Func _Always_On_Top14()
AlwaysOnTop(14,1)
EndFunc
Func _Always_On_Top15()
AlwaysOnTop(15,1)
EndFunc
Func _Always_On_Top16()
AlwaysOnTop(16,1)
EndFunc
Func _Always_On_Top17()
AlwaysOnTop(17,1)
EndFunc
Func _Always_On_Top18()
AlwaysOnTop(18,1)
EndFunc
Func _Always_On_Top19()
AlwaysOnTop(19,1)
EndFunc
Func _Always_On_Top20()
AlwaysOnTop(20,1)
EndFunc
Func _Always_On_Top21()
AlwaysOnTop(21,1)
EndFunc
Func _Always_On_Top22()
AlwaysOnTop(22,1)
EndFunc
Func _Always_On_Top23()
AlwaysOnTop(23,1)
EndFunc
Func _Always_On_Top24()
AlwaysOnTop(24,1)
EndFunc
Func _Always_On_Top25()
AlwaysOnTop(25,1)
EndFunc
Func _Always_On_Top26()
AlwaysOnTop(26,1)
EndFunc

Func _Always_On_Top01()
AlwaysOnTop(1,0)
EndFunc

Func _Always_On_Top02()
AlwaysOnTop(2,0)
EndFunc

Func _Always_On_Top03()
AlwaysOnTop(3,0)
EndFunc

Func _Always_On_Top04()
AlwaysOnTop(4,0)
EndFunc

Func _Always_On_Top05()
AlwaysOnTop(5,0)
EndFunc

Func _Always_On_Top06()
AlwaysOnTop(6,0)
EndFunc

Func _Always_On_Top07()
AlwaysOnTop(7,0)
EndFunc

Func _Always_On_Top08()
AlwaysOnTop(8,0)
EndFunc

Func _Always_On_Top09()
AlwaysOnTop(9,0)
EndFunc

Func _Always_On_Top010()
AlwaysOnTop(10,0)
EndFunc

Func _Always_On_Top011()
AlwaysOnTop(11,0)
EndFunc

Func _Always_On_Top012()
AlwaysOnTop(12,0)
EndFunc

Func _Always_On_Top013()
AlwaysOnTop(13,0)
EndFunc

Func _Always_On_Top014()
AlwaysOnTop(14,0)
EndFunc

Func _Always_On_Top015()
AlwaysOnTop(15,0)
EndFunc

Func _Always_On_Top016()
AlwaysOnTop(16,0)
EndFunc

Func _Always_On_Top017()
AlwaysOnTop(17,0)
EndFunc

Func _Always_On_Top018()
AlwaysOnTop(18,0)
EndFunc

Func _Always_On_Top019()
AlwaysOnTop(19,0)
EndFunc

Func _Always_On_Top020()
AlwaysOnTop(20,0)
EndFunc

Func _Always_On_Top021()
AlwaysOnTop(21,0)
EndFunc

Func _Always_On_Top022()
AlwaysOnTop(22,0)
EndFunc

Func _Always_On_Top023()
AlwaysOnTop(23,0)
EndFunc

Func _Always_On_Top024()
AlwaysOnTop(24,0)
EndFunc

Func _Always_On_Top025()
AlwaysOnTop(25,0)
EndFunc

Func _Always_On_Top026()
AlwaysOnTop(26,0)
EndFunc

#EndRegion ###
#region ### skroty klawiszowe
Func q()
_func1("q")
EndFunc
Func w()
_func1("w")
EndFunc
Func e()
_func1("e")
EndFunc
Func r()
_func1("r")
EndFunc
Func t()
_func1("t")
EndFunc
Func y()
_func1("y")
EndFunc
Func u()
_func1("u")
EndFunc
Func i()
_func1("i")
EndFunc
Func o()
_func1("o")
EndFunc
Func p()
_func1("p")
EndFunc
Func a()
_func1("a")
EndFunc
Func s()
_func1("s")
EndFunc
Func d()
_func1("d")
EndFunc
Func f()
_func1("f")
EndFunc
Func g()
_func1("g")
EndFunc
Func h()
_func1("h")
EndFunc
Func j()
_func1("j")
EndFunc
Func k()
_func1("k")
EndFunc
Func l()
_func1("l")
EndFunc
Func z()
_func1("z")
EndFunc
Func x()
_func1("x")
EndFunc
Func c()
_func1("c")
EndFunc
Func v()
_func1("v")
EndFunc
Func b()
_func1("b")
EndFunc
Func n()
_func1("n")
EndFunc
Func m()
_func1("m")
EndFunc
Func qq()
_func1("q", 1)
EndFunc
Func ww()
_func1("w", 1)
EndFunc
Func ee()
_func1("e", 1)
EndFunc
Func rr()
_func1("r", 1)
EndFunc
Func tt()
_func1("t", 1)
EndFunc
Func yy()
_func1("y", 1)
EndFunc
Func uu()
_func1("u", 1)
EndFunc
Func ii()
_func1("i", 1)
EndFunc
Func oo()
_func1("o", 1)
EndFunc
Func pp()
_func1("p", 1)
EndFunc
Func aa()
_func1("a", 1)
EndFunc
Func ss()
_func1("s", 1)
EndFunc
Func dd()
_func1("d", 1)
EndFunc
Func ff()
_func1("f", 1)
EndFunc
Func gg()
_func1("g", 1)
EndFunc
Func hh()
_func1("h", 1)
EndFunc
Func jj()
_func1("j", 1)
EndFunc
Func kk()
_func1("k", 1)
EndFunc
Func ll()
_func1("l", 1)
EndFunc
Func zz()
_func1("z", 1)
EndFunc
Func xx()
_func1("x", 1)
EndFunc
Func cc()
_func1("c", 1)
EndFunc
Func vv()
_func1("v", 1)
EndFunc
Func bb()
_func1("b", 1)
EndFunc
Func nn()
_func1("n", 1)
EndFunc
Func mm()
_func1("m", 1)
EndFunc
#endregion

Zawartość pliku "Windows Manager.ini" (dokładnie taka nazwa musi być!!!)

[Opcje]
Checkbox1=1
Checkbox2=1
Checkbox3=1
Checkbox4=1
Checkbox5=1
Checkbox6=1
Checkbox7=1
Checkbox8=1
Checkbox9=1
Checkbox10=1
[inne]
WidzianoAbout=1
[Language]
Active=English
[Polski]
TrayTipTitle=Kliknij aby dowiedzić się więcej
TrayTipText1=Aby zapamiętać okno kliknij alt+2x litera
TrayTipText2=Aby aktywować zapamiętane okno kliknij alt+litera
options=Opcje
T_Instrukcja=Instrukcja
T_exit=Wyjdź(Win+Esc)
T_ON_OFF=Włącz/Wyłącz
T_Clean=Wyczyść
About=O programie
_Alert_Save_Delete_Title=Usunięto
_Alert_Save_Delete_Text=Usunięto zapis okna
_Alert_Active_Title=Aktywacja
_Alert_Active_Text=Aktywowano okno
_Alert_Not_Saved_Title=Błąd
_Alert_Not_Saved_Text=Brak zapisu
_Alert_Save_Title=Zapis
_Alert_Save_Text=Zapisano okno
FuncNotWorking=Funkcja aktualnie nie działa
_Alert_Close1=Okno
_Alert_Close2= zostało zamknięte
Button1=Anuluj
Button2=Instrukcja - Skróty
Button3=Pokaż zapisane okna
Button4=Pokaż trwale zapisane okna
Button5=OK
Button6=Zapisz
Button7=Domyślne
Checkbox1=Usuń wszystkie przypisania
Checkbox2=Uruchamiaj przy starcie Windows
Checkbox3=Włącz/Wyłącz(program nie zostanie zamknięty)
Checkbox4=Powiadamiaj o usunięciu zapisu okna
Checkbox5=Powiadamiaj o zapisaniu okna
Checkbox6=Powiadamiaj o aktywowaniu okna
Checkbox7=Powiadamiaj o braku zapisu okna
Checkbox8=Powiadamiaj o zamknięciu zapisanego okna
Checkbox9=Pokazuj to okno przy uruchomieniu
Checkbox10=Powiadamiaj o próbie zapisu/aktywowania okna gdy wyłączony
Form2=Otworzone okna
symbol=litera
Name=Tytuł
Refresh=Odśwież
CheckAll=Zaznacz wszystko
Delete=Usuń
AlwaysOnTop=Zawsze na wierzchu
Add=Dodaj
[English]
TrayTipTitle=Click to find out more
TrayTipText1=To remem ber Windows click alt+2x letter
TrayTipText2=To activate remembered Windows click alt+letter
options=Opcje
T_Instrukcja=Manual
T_exit=Exit(Win+Esc)
T_ON_OFF=On/Off
T_Clean=Erase
About=About
_Alert_Save_Delete_Title=Deleted
_Alert_Save_Delete_Text=Deleted saved window
_Alert_Active_Title=Activate
_Alert_Active_Text=Activated Windows
_Alert_Not_Saved_Title=Error
_Alert_Not_Saved_Text=No save
_Alert_Save_Title=Save
_Alert_Save_Text=Saved window
FuncNotWorking=Function not yet available
_Alert_Close1=Window
_Alert_Close2=Has been closed
Button1=Cancel
Button2=Hotkeys
Button3=Show saved windows
Button4=Show permanently saved windows
Button5=OK
Button6=Save
Button7=Default
Checkbox1=Erase all
Checkbox2=Start with Windows
Checkbox3=On/Off(program will not be closed)
Checkbox4=Inform about erasing saved window
Checkbox5=Inform about saving window
Checkbox6= Inform about activating window
Checkbox7= Inform about no window save
Checkbox8= Inform about saved window closure
Checkbox9=Show this window on startup
Checkbox10= Inform about save attempt/activation window when off
Form2=Opened Windows
symbol=Letter
Name=Title
Refresh=Refresh
CheckAll=Select All
Delete=Delete
AlwaysOnTop=Always on top
Add=Add
[Espa?ol]

lub link:

https://skydrive.live.com/redir?resid=1B9EC8947ED5A279!13944&authkey=!AJ6Va_2_xWKhK8M

31 Grudnia 2012

Start z systemem jest w miare prosty. Dodaj to jedno z tych:

RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run",@ScriptFullPath)

RegDelete("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run",@ScriptFullPath)

FileCopy(@ScriptFullPath,@ProgramsDir&'\Autostart\',1)

FileDelete(@ScriptFullPath,@ProgramsDir&'\Autostart\')

Nie lepiej tą mnogość funkcji zastąpić jedną?

Func _Always_On_Top($number)
AlwaysOnTop($number,0)
EndFunc

Func FunclLetter($letter)
_func1($letter)
EndFunc

arcabania · 20 Lutego 2013

Griffen was back to working at end during Monday's practice, and coach Leslie Frazier told reporters: "We saw enough of him at linebacker where we feel like this is going to be Justin Smith Jersey better Deion Sanders ThrowBack Jersey for him. ? He agrees that it's better for him to focus on that position."

Zaloguj się

👋 Witaj na MPCForum!

[Source][Zarządzanie oknami] Manager okien

Rekomendowane odpowiedzi

wefhy

wefhy

Gość

Gość

arcabania

arcabania

Zarchiwizowany