Verfügbare Informationen zu "Taskleiste"
Qualität des Beitrags: Beteiligte Poster: daos06 Forum: DAFLO programming Forum Forenbeschreibung: Forum für die Mitglieder der Programmierer-Gruppe DAFLO programming aus dem Unterforum: RapidBatch Antworten: 1 Forum gestartet am: Samstag 05.08.2006 Sprache: deutsch Link zum Originaltopic: Taskleiste Letzte Antwort: vor 17 Jahren, 7 Monaten, 14 Tagen, 2 Stunden, 11 Minuten
Alle Beiträge und Antworten zu "Taskleiste"
Re: Taskleiste
daos06 - 04.09.2006, 22:23Taskleiste
Hier, eine von mir programmierte Taskleiste für Windows.
Das ist die Probeversion 2.2.
Verbesserungen:
Sie ist jetzt Fehlerlos, ich muss jetzt nur noch einbauen, dass es die WIN-Taste und Strg + ESC sperrt.
Code: include 'rbUtil2.rb'
INCLUDE 'xWindow.rb'
rem Pfad zu rbUtil2.rbx festlegen (auf Verz. des Skripts)
rbUtil2ModulePath ''
rem rbUtil2 laden und initialisieren
rbUtil2Initialize [ret]
rem Bei Fehler: Abbruch
if [ret] ! [true]
echo 'Fehler beim Laden von rbUtil2'
halt
endif
rem Status der Windows-Taskleiste merken
ext [TBHide] = [_rbUtil2] , 'rbxGetSystemInfo', 'TaskBarHide'
ext [TBTop] = [_rbUtil2] , 'rbxGetSystemInfo', 'TaskBarTop'
rem Windows-Taskleiste ausblenden
rem ext [Ret] = [_rbUtil2] , 'rbxSetSystemInfo', 'TaskBarHide', [true]
ext [Ret] = [_rbUtil2] , 'rbxSetSystemInfo', 'TaskBarTop', [false]
ext [Ret] = [_rbUtil2] , 'rbxSetSystemInfo', 'TaskBarHide', [true]
rem --- creating code for widget "myDialog"
[d] = [ScreenHeight] - '30'
newdialog 'myDialog', 'DIALOG', '1|' # [d] # '|1100|25'
letdialog 'myDialog', 'caption', 'myDialog'
letdialog 'myDialog', 'style', 'static_tool'
GETDIALOG [hWnd] = 'myDialog', 'HWND'
[Kontextmenu] = 'none,bd,TASKLEISTE|-|'
[Kontextmenu] # ',d,Version 1.0|-|Info:Programmierung|Problemmeldung;,,Taskleiste:beenden|ausblenden;'
rem [Kontextmenu] # 'Info|Taskleiste ausblenden'
EXT [RetVal] = [_rbUtil2], 'rbxDlgSetStyle', [hWnd], 'Menu', [Kontextmenu]
EXT [RetVal] = [_rbUtil2], 'rbxDlgSetStyle', [hWnd], 'color', '51|51|51'
EXT [RetVal] = [_rbUtil2], 'rbxDlgSetStyle', [hWnd], 'Caption', 'Remove'
EXT [RetVal] = [_rbUtil2], 'rbxDlgSetStyle', [hWnd], 'AppBar', 'Bottom'
newdialog 'myDialog:Event', 'BUTTON', '1|1|1|1'
letdialog 'myDialog:Event', 'visible', [false]
getdialog [hwnd] = 'myDialog:Event', 'HWND'
ext [ret] = [_rbUtil2], 'rbxSetEventButton', [hwnd]
if [ret] ! [true]
echo 'Event-Button konnte nicht registriert werden'
halt
endif
rem --- creating code for widget "myWidget1"
newdialog 'myDialog:myWidget1', 'IMAGEBUTTON', '1|1|40|30'
letdialog 'myDialog:myWidget1', 'enabled', '0'
letdialog 'myDialog:myWidget1', 'IMAGE', 'Taskleist_Startbutton.bmp'
GETDIALOG [hWnd] = 'myDialog:myWidget1', 'HWND'
EXT [RetVal] = [_rbUtil2], 'rbxDlgCtrlSetStyle', [hWnd], 'Border', 'none'
newdialog 'myDialog:myWidget3', 'IMAGEBUTTON', '870|5|80|20'
letdialog 'myDialog:myWidget3', 'IMAGE', 'Taskleiste_Taskbutton.bmp'
rem --- creating code for widget "myWidget2"
newdialog 'myDialog:myWidget2', 'LABEL', '970|5|45|15'
letdialog 'myDialog:myWidget2', 'enabled', '0'
letdialog 'myDialog:myWidget2', 'caption', [time]
letdialog 'myDialog:myWidget2', 'TOOLTIP', 'Zeit'
GETDIALOG [hWnd] = 'myDialog:myWidget2', 'HWND'
EXT [RetVal] = [_rbUtil2], 'rbxDlgCtrlSetStyle', [hWnd], 'color', '51|51|51:255|255|255'
rem newdialog 'myDialog:myWidget4', 'BUTTON', '950|1|20|20'
rem letdialog 'myDialog:myWidget4', 'enabled', '0'
rem letdialog 'myDialog:myWidget4', 'caption', ''
rem letdialog 'myDialog:myWidget4', 'TOOLTIP', 'Taskleiste ausblenden'
rem [screenbreite] = [ScreenWidth] - '120'
rem [screenhöhe] = [ScreenHeight] - '40'
rem newdialog 'Tasks', 'DIALOG', [screenbreite] # '|1|25|' # [screenhöhe]
rem letdialog 'Tasks', 'style', 'static_tool'
rem letdialog 'Tasks', 'ORDER', 'top'
rem GETDIALOG [hWnd] = 'Tasks', 'HWND'
rem EXT [RetVal] = [_rbUtil2], 'rbxDlgSetStyle', [hWnd], 'Caption', 'Remove'
rem EXT [RetVal] = [_rbUtil2], 'rbxDlgSetStyle', [hWnd], 'Alpha', '30'
rem letdialog 'Tasks', 'visible', [true]
rem 154|205|50
[hWnd1] = [hWnd]
[l] = [d] - '450'
newdialog 'Liste', 'DIALOG', '1|' # [l] # '|455|440'
letdialog 'Liste', 'caption', 'myDialog'
letdialog 'Liste', 'style', 'single'
letdialog 'Liste', 'ORDER', 'top'
GETDIALOG [hWnd] = 'Liste', 'HWND'
EXT [RetVal] = [_rbUtil2], 'rbxDlgSetStyle', [hWnd], 'Alpha', '10'
EXT [RetVal] = [_rbUtil2], 'rbxDlgSetStyle', [hWnd], 'color', '51|51|51'
EXT [RetVal] = [_rbUtil2], 'rbxDlgSetStyle', [hWnd], 'Caption', 'Remove'
EXT [programme] = [_rbUtil2], 'rbxGetSystemInfo', 'ProgramFilesDir'
EXT [eDateien] = [_rbUtil2], 'rbxGetSystemInfo', 'MyFilesDir'
newdialog 'Liste:myWidget2', 'IMAGE', '1|1|450|68'
letdialog 'Liste:myWidget2', 'IMAGE', 'Taskleiste_Menüüberschrift.bmp'
newdialog 'Liste:myWidget3', 'LIST', '225|68|225|330'
letdialog 'Liste:myWidget3', 'enabled', '0'
letdialog 'Liste:myWidget3', 'Font', 'Arial|12|2'
letdialog 'Liste:myWidget3', 'EVENT_DBLCLICK', [true]
letdialog 'Liste:myWidget3', 'items', 'Microsoft Word|Microsoft Excel|Microsoft Powerpoint|Microsoft Frontpage|Microsoft Access|Microsoft Paint|Windows Mediaplayer|Microsoft Internet Explorer|Mozilla Firefox|'
rem FRONTPG.EXE MSACCESS.EXE
GETDIALOG [hWnd] = 'Liste:myWidget3', 'HWND'
EXT [RetVal] = [_rbUtil2], 'rbxDlgCtrlSetStyle', [hWnd], 'color', '64|64|64:255|255|255'
newdialog 'Liste:myWidget4', 'Button', '225|400|110|35'
letdialog 'Liste:myWidget4', 'caption', 'Abmelden'
letdialog 'Liste:myWidget4', 'Font', 'Arial|12|2'
newdialog 'Liste:myWidget5', 'Button', '335|400|110|35'
letdialog 'Liste:myWidget5', 'caption', 'Ausschalten'
letdialog 'Liste:myWidget5', 'Font', 'Arial|12|2'
rem --- creating code for widget "myWidget3"
newdialog 'Liste:myWidget1', 'LIST', '1|68|225|330'
letdialog 'Liste:myWidget1', 'enabled', '0'
letdialog 'Liste:myWidget1', 'Font', 'Arial|12|2'
letdialog 'Liste:myWidget1', 'EVENT_DBLCLICK', [true]
letdialog 'Liste:myWidget1', 'items', 'Ausführen|Arbeitsplatz|Explorer|Eigene Dateien|Programme|Desktop anzeigen|cmd|regedit|Rechner'
rem C:\Dokumente und Einstellungen\Helmut\Anwendungsdaten\Microsoft\Internet Explorer\Quick Launch\Desktop anzeigen.scf
GETDIALOG [hWnd] = 'Liste:myWidget1', 'HWND'
EXT [RetVal] = [_rbUtil2], 'rbxDlgCtrlSetStyle', [hWnd], 'color', '64|64|64:255|255|255'
[Listenerzeug] = [true]
rem --- make the dialog window visible
letdialog 'myDialog', 'visible', [true]
rbxFindWindowList [winlist] = '', 'EXIST', '', '', [true], ''
rem echo [winlist]
reset [winnamelist]
[idx] = '0'
repeat
[idx] + '1'
gettok [winuno] = [winlist], ':', [idx]
rbxGetWindowText [winname] = [winuno]
If [winnamelist] = ''
[winnamelist] = [winname] # '|'
else
[winnamelist] # [winname] # '|'
endif
until [winuno] = ''
getlen [len] = [winnamelist]
[len] - '5'
cntvar [anzahl|] = [winnamelist], '|'
[anzahl|] - '2'
getpos [pos|] = [winnamelist], '|', [anzahl|]
copyvar [winnamelist] = [winnamelist], '10', [pos|] - '10'
rem echo [winnamelist]
newdialog 'Tasks', 'DIALOG', '698|404|331|325'
letdialog 'Tasks', 'style', 'single'
letdialog 'Tasks', 'ORDER', 'top'
GETDIALOG [hWnd] = 'Tasks', 'HWND'
EXT [RetVal] = [_rbUtil2], 'rbxDlgSetStyle', [hWnd], 'Caption', 'Remove'
newdialog 'Tasks:list', 'list', '1|1|322|330'
letdialog 'Tasks:list', 'items', [winnamelist]
letdialog 'Tasks:list', 'EVENT_DBLCLICK', [true]
GETDIALOG [hWnd] = 'Tasks:list', 'HWND'
EXT [RetVal] = [_rbUtil2], 'rbxDlgCtrlSetStyle', [hWnd], 'color', '64|64|64:255|255|255'
[winliostopen] = ''
repeat
letdialog 'myDialog:myWidget2', 'caption', [time]
rundialog [event] = '1000'
If [winlistopen] = ''
rbxFindWindowList [winlist] = '', 'EXIST', '', '', [true], ''
rem echo [winlist]
reset [winnamelist]
[idx] = '0'
repeat
[idx] + '1'
gettok [winuno] = [winlist], ':', [idx]
rbxGetWindowText [winname] = [winuno]
If [winnamelist] = ''
[winnamelist] = [winname] # '|'
else
[winnamelist] # [winname] # '|'
endif
until [winuno] = ''
getlen [len] = [winnamelist]
[len] - '5'
cntvar [anzahl|] = [winnamelist], '|'
[anzahl|] - '2'
getpos [pos|] = [winnamelist], '|', [anzahl|]
copyvar [winnamelist] = [winnamelist], '10', [pos|] - '10'
letdialog 'Tasks:list', 'items', [winnamelist]
endif
If [event] = 'click_myDialog:myWidget3'
If [winlistopen] = ''
letdialog 'Tasks', 'visible', [true]
[winlistopen] = '0'
else
letdialog 'Tasks', 'visible', [false]
[winlistopen] = ''
endif
endif
if [event] = 'dblclick_Tasks:list'
getdialog [auswahl] = 'Tasks:list', 'SELECTION'
rbxFindWindowTitle [titelnr] = [auswahl], ''
rbxGetWindowMode [modus] = [titelnr]
If [modus] = '0' | [modus] = '2' rbxSetWindowMode [true] = [titelnr], 'min'
If [modus] = '1' rbxSetWindowMode [true] = [titelnr], 'norm'
endif
if [event] = 'click_myDialog:Event'
ext [rbxevt] = [_rbUtil2], 'rbxGetNextEvent'
If [rbxevt] = 'context_3'
[Echo_Title] = 'Taskleiste'
echo 'Taskleiste 1.0' # [new_line] # [new_line] # 'copyright © 2006 by Daniel Ostheimer' # [new_line] # [new_line] # 'The programm was finished at 2006-12-1' # [new_line] # [new_line] # 'Developed by Daniel Ostheimer and the grafics are designed by Nicolas Tröber.' # [new_line] # [new_line] # 'Developed in Rapid Batch 5.1'
endif
If [rbxevt] = 'context_4'
[Echo_Title] = 'Taskleiste'
echo 'When there are bugs in the programm, please send me an E-Mail. I will solve all the problems and I will send you the new progamm.' # [new_line] # [new_line] # 'mailto: FLODAprogramming@yahoo.de'
endif
If [rbxevt] = 'context_5'
ext [Ret] = [_rbUtil2] , 'rbxDlgSetStyle', [hWnd1] , 'AppBar', 'Off'
ext [Ret] = [_rbUtil2] , 'rbxSetSystemInfo', 'TaskBarTop', [TBTop]
ext [Ret] = [_rbUtil2] , 'rbxSetSystemInfo', 'TaskBarHide', [TBHide]
halt
endif
If [rbxevt] = 'context_6'
letdialog 'myDialog', 'visible', [false]
ext [Ret] = [_rbUtil2] , 'rbxDlgSetStyle', [hWnd1] , 'AppBar', 'Off'
ext [Ret] = [_rbUtil2] , 'rbxSetSystemInfo', 'TaskBarTop', [TBTop]
ext [Ret] = [_rbUtil2] , 'rbxSetSystemInfo', 'TaskBarHide', [TBHide]
[Echo_Title] = 'Taskleiste'
echo 'Zum wiedereinblenden der Taskleiste einfach auf Ok drücken.'
ext [Ret] = [_rbUtil2] , 'rbxSetSystemInfo', 'TaskBarTop', [false]
ext [Ret] = [_rbUtil2] , 'rbxSetSystemInfo', 'TaskBarHide', [true]
ext [Ret] = [_rbUtil2] , 'rbxDlgSetStyle', [hWnd1] , 'AppBar', 'Bottom'
letdialog 'myDialog', 'visible', [true]
endif
endif
If [event] = 'click_myDialog:myWidget1'
letdialog 'Liste', 'visible', [true]
repeat
letdialog 'myDialog:myWidget2', 'caption', [time]
rundialog [event] = '500'
If [event] = 'click_myDialog:myWidget3'
If [winlistopen] = ''
letdialog 'Tasks', 'visible', [true]
[winlistopen] = '0'
else
letdialog 'Tasks', 'visible', [false]
[winlistopen] = ''
endif
endif
if [event] = 'dblclick_Tasks:list'
getdialog [auswahl] = 'Tasks:list', 'SELECTION'
rbxFindWindowTitle [titelnr] = [auswahl], ''
rbxGetWindowMode [modus] = [titelnr]
If [modus] = '0' | [modus] = '2' rbxSetWindowMode [true] = [titelnr], 'min'
If [modus] = '1' rbxSetWindowMode [true] = [titelnr], 'norm'
endif
if [event] = 'click_myDialog:Event'
ext [rbxevt] = [_rbUtil2], 'rbxGetNextEvent'
If [rbxevt] = 'context_3' [Echo_Title] = 'Taskleiste' echo 'Taskleiste 1.0' # [new_line] # [new_line] # 'copyright © 2006 by Daniel Ostheimer' # [new_line] # [new_line] # 'The programm was finished at 2006-12-1' # [new_line] # [new_line] # 'Developed by Daniel Ostheimer and the grafics are designed by Nicolas Tröber.' # [new_line] # [new_line] # 'Developed in Rapid Batch 5.1'
If [rbxevt] = 'context_4' [Echo_Title] = 'Taskleiste' echo 'When there are bugs in the programm, please send me an E-Mail. I will solve all the problems and I will send you the new progamm.' # [new_line] # [new_line] # 'mailto: FLODAprogramming@yahoo.de'
If [rbxevt] = 'context_5'
ext [Ret] = [_rbUtil2] , 'rbxDlgSetStyle', [hWnd1] , 'AppBar', 'Off'
ext [Ret] = [_rbUtil2] , 'rbxSetSystemInfo', 'TaskBarTop', [TBTop]
ext [Ret] = [_rbUtil2] , 'rbxSetSystemInfo', 'TaskBarHide', [TBHide]
halt
endif
If [rbxevt] = 'context_6'
letdialog 'myDialog', 'visible', [false]
ext [Ret] = [_rbUtil2] , 'rbxDlgSetStyle', [hWnd1] , 'AppBar', 'Off'
ext [Ret] = [_rbUtil2] , 'rbxSetSystemInfo', 'TaskBarTop', [TBTop]
ext [Ret] = [_rbUtil2] , 'rbxSetSystemInfo', 'TaskBarHide', [TBHide]
[Echo_Title] = 'Taskleiste'
echo 'Zum wiedereinblenden der Taskleiste einfach auf Ok drücken.'
ext [Ret] = [_rbUtil2] , 'rbxSetSystemInfo', 'TaskBarTop', [false]
ext [Ret] = [_rbUtil2] , 'rbxSetSystemInfo', 'TaskBarHide', [true]
ext [Ret] = [_rbUtil2] , 'rbxDlgSetStyle', [hWnd1] , 'AppBar', 'Bottom'
letdialog 'myDialog', 'visible', [true]
endif
endif
if [event] = 'click_Liste:myWidget4'
ext [Ret] = [_rbUtil2] , 'rbxDlgSetStyle', [hWnd1] , 'AppBar', 'Off'
ext [Ret] = [_rbUtil2] , 'rbxSetSystemInfo', 'TaskBarTop', [TBTop]
ext [Ret] = [_rbUtil2] , 'rbxSetSystemInfo', 'TaskBarHide', [TBHide]
system 'logoff'
endif
if [event] = 'click_Liste:myWidget5'
ext [Ret] = [_rbUtil2] , 'rbxDlgSetStyle', [hWnd1] , 'AppBar', 'Off'
ext [Ret] = [_rbUtil2] , 'rbxSetSystemInfo', 'TaskBarTop', [TBTop]
ext [Ret] = [_rbUtil2] , 'rbxSetSystemInfo', 'TaskBarHide', [TBHide]
shutdown 'shutdown'
endif
If [event] = 'click_myDialog:myWidget4'
[x] = '0'
[event] = 'click_myDialog:myWidget4'
endif
if [event] = 'dblclick_Liste:myWidget3'
getdialog [auswahl] = 'Liste:myWidget3', 'SELECTION'
If [auswahl] = 'Microsoft Word'
shell 'C:\Programme\Microsoft Office\OFFICE11\WINWORD.exe', 'show'
If [errorcode] < '32' | [errorcode] = '32' shell 'C:\Programme\Microsoft Office\OFFICE\WINWORD.exe', 'show'
endif
if [auswahl] = 'Microsoft Excel'
shell 'C:\Programme\Microsoft Office\OFFICE11\EXCEL.exe', 'show'
If [errorcode] < '32' | [errorcode] = '32' shell 'C:\Programme\Microsoft Office\OFFICE\EXCEL.exe', 'show'
endif
if [auswahl] = 'Microsoft Powerpoint'
shell 'C:\Programme\Microsoft Office\OFFICE11\POWERPNT.exe', 'show'
If [errorcode] < '32' | [errorcode] = '32' shell 'C:\Programme\Microsoft Office\OFFICE\POWERPNT.exe', 'show'
endif
if [auswahl] = 'Microsoft Frontpage'
shell 'C:\Programme\Microsoft Office\OFFICE11\FRONTPG.EXE', 'show'
If [errorcode] < '32' | [errorcode] = '32' shell 'C:\Programme\Microsoft Office\OFFICE\FRONTPG.EXE', 'show'
endif
if [auswahl] = 'Microsoft Access'
shell 'C:\Programme\Microsoft Office\OFFICE11\MSACCESS.EXE', 'show'
If [errorcode] < '32' | [errorcode] = '32' shell 'C:\Programme\Microsoft Office\OFFICE\MSACCESS.EXE', 'show'
endif
if [auswahl] = 'Microsoft Paint'
shell 'C:\WINDOWS\system32\mspaint.exe', 'show'
If [errorcode] < '32' | [errorcode] = '32' shell 'C:\WINDOWS\system32\mspaint.exe', 'show'
endif
if [auswahl] = 'Microsoft Internet Explorer'
shell 'C:\Programme\Internet Explorer\iexplore.exe', 'show'
endif
if [auswahl] = 'Windows Mediaplayer'
shell 'C:\Programme\Windows Media Player\wmplayer.exe', 'show'
endif
if [auswahl] = 'Mozilla Firefox'
shell 'C:\Programme\Mozilla Firefox\firefox.exe', 'show'
endif
endif
if [event] = 'dblclick_Liste:myWidget1'
getdialog [auswahl] = 'Liste:myWidget1', 'SELECTION'
If [auswahl] = 'Ausführen'
[InputBox_Ok] = 'Auführen'
[InputBox_Cancel] = 'Abbrechen'
inputbox [Ausführen] = 'Ausführen', 'Geben Sie den Namen einer Ausführung ein', ''
system [Ausführen]
endif
if [auswahl] = 'Programme'
open [programme]
endif
if [auswahl] = 'Explorer'
endif
if [auswahl] = 'Eigene Dateien'
open [eDateien]
endif
rem Ausführen|Arbeitsplatz|Explorer|Eigene Dateien|Programme|Desktop anzeigen|cmd|regedit|Rechner
if [auswahl] = 'Arbeitsplatz'
echo 'Funktion noch nicht ausgereift'
endif
if [auswahl] = 'Desktop anzeigen'
rbxFindWindowList [wndlist] = '', 'EXIST', '', '', [true], ''
[minlist] = ''
[minmode] = ''
if [wndlist] ! ''
[idx] = '0'
repeat
[idx] + '1'
gettok [wnd] = [wndlist], ':', [idx]
If [idx] ! '1' & [idx] ! '2'
if [wnd] ! ''
rbxGetWindowMode [ret] = [wnd]
if [ret] = '0' | [ret] = '2'
[minlist] = [wnd] # ':' # [minlist]
[minmode] = [ret] # ':' # [minmode]
rbxSetWindowMode [ret] = [wnd], 'min'
endif
endif
endif
until [wnd] = ''
endif
endif
if [auswahl] = 'cmd'
system 'cmd'
endif
if [auswahl] = 'regedit'
system 'regedit'
endif
if [auswahl] = 'Rechner'
system 'calc'
endif
endif
if [event] = 'click_myDialog:myWidget1'
letdialog 'Liste', 'visible', [false]
[x] = '0'
endif
until [event] = 'click_myDialog:myWidget1'
rem endif
endif
until [event] = 'click_myDialog:myWidget4'
rem Status als Taskleiste aufheben
ext [Ret] = [_rbUtil2] , 'rbxDlgSetStyle', [hWnd1] , 'AppBar', 'Off'
rem Status der Windows-Taskleiste wiederherstellen
ext [Ret] = [_rbUtil2] , 'rbxSetSystemInfo', 'TaskBarTop', [TBTop]
ext [Ret] = [_rbUtil2] , 'rbxSetSystemInfo', 'TaskBarHide', [TBHide]
end
Mit folgendem Code, können Sie den Beitrag ganz bequem auf ihrer Homepage verlinken
Weitere Beiträge aus dem Forum DAFLO programming Forum
Ist dir das schon aufgefallen? - gepostet von daos06 am Montag 06.11.2006
Ähnliche Beiträge wie "Taskleiste"
Wie kann ich den Style meiner Taskleiste ändern? - Mike (Sonntag 27.05.2007)
Meine Taskleiste... [PC] - Speedy (Samstag 14.05.2005)
Taskleiste - dave (Donnerstag 08.03.2007)
WindowsMediaPlayer in der Taskleiste - K-A (Dienstag 11.05.2004)
Slipknot-Taskleiste - $cHl!pPy (Sonntag 04.06.2006)