| |
| |
|
Torsten
Rümker | Hallo erstmal,
nachdem ich heute mal wieder etwas an meinem Lieblingsprojekt gebastelt habe dachte ich mir,
daß ich die Funktionalität des u.g. Include super in meinem Programm gebrauchen potuto.
Leider funktioniert das ganze nur im Interpretermodus, sobald ich das ganze kompiliert habe ist ende.
Jetzt meine Frage Liegt das an dem Include?
Ich finde darin keinen Fehler?
Achja, eh ichs vergesse das Include ist nicht von mir, leider habe ich keine Ahnung mehr von wem
oder von wo ich das habe.
MfG
Torsten Rümker
KompilierenMarkierenSeparierenDEF CoInitialize(1) ! "OLE32","CoInitialize"
DEF CoUnInitialize(0) ! "OLE32","CoUninitialize"
DEF CoCreateInstance(5) ! "OLE32","CoCreateInstance"
DEF &HrInit 12
DEF &AddTab 16
DEF &DeleteTab 20
DEF &Release 8
DECLARE COMMAND&
DECLARE TaskObject&
DECLARE CLSID_TaskbarList#
DECLARE IID_ITaskbarList#
Proc HideMyWindow
Parameters Flag&
DIM CLSID_TaskbarList#,16
DIM IID_ITaskbarList#,16
GUID CLSID_TaskBarlist
LONG CLSID_TaskbarList#,0 = $56FDF344
WORD CLSID_TaskbarList#,4 = $FD6D
WORD CLSID_TaskbarList#,6 = $11D0
BYTE CLSID_TaskbarList#,8 = $95
BYTE CLSID_TaskbarList#,9 = $8A
BYTE CLSID_TaskbarList#,10 = $00
BYTE CLSID_TaskbarList#,11 = $60
BYTE CLSID_TaskbarList#,12 = $97
BYTE CLSID_TaskbarList#,13 = $C9
BYTE CLSID_TaskbarList#,14 = $A0
BYTE CLSID_TaskbarList#,15 = $90
GUID IDD_TaskBarlist
LONG IID_ITaskbarList#,0 = $56FDF342
WORD IID_ITaskbarList#,4 = $FD6D
WORD IID_ITaskbarList#,6 = $11D0
BYTE IID_ITaskbarList#,8 = $95
BYTE IID_ITaskbarList#,9 = $8A
BYTE IID_ITaskbarList#,10 = $00
BYTE IID_ITaskbarList#,11 = $60
BYTE IID_ITaskbarList#,12 = $97
BYTE IID_ITaskbarList#,13 = $C9
BYTE IID_ITaskbarList#,14 = $A0
BYTE IID_ITaskbarList#,15 = $90
CoInitialize(0)
If CoCreateInstance(CLSID_TaskbarList#,0,1,IID_ITaskbarList#,ADDR(TaskObject&)) = 0
COMMAND& = @LONG(TaskObject&,0)
CALL(LONG(COMMAND&,&HrInit),Taskobject&) initialisieren
If Flag& = 0
CALL(LONG(COMMAND&,&DeleteTab),Taskobject&,%HWND) TaskbarButton ausblenden
ElseIf Flag& = 1
CALL(LONG(COMMAND&,&AddTab),Taskobject&,%HWND) TaskbarButton einblenden
Endif
CALL(LONG(COMMAND&,&Release),Taskobject&) Objekt freigeben
Endif
DISPOSE CLSID_TaskbarList#
DISPOSE IID_ITaskbarList#
CoUnInitialize()
f='./../../function-references/xprofan/endproc/'>EndProc
|
|
| |
| Ich lerne, ob ich will oder nicht!
Betriebssystem:
- Ubuntu 15.x
- Windows (diverse)
XProfan Version: X2 | 10.08.2005 ▲ |
|
| |
|
|
Jörg
Sellmeyer | Da kommen eigentlich nur Sebastian König, Andreas Miethe oder Uwe Pascal Niemeyer (wo ist der eigentlich?) in Frage.
Ich weiß es aber leider auch nicht mehr.
Hier ist die Version, die ich habe - funktioniert wie geschmiert!
Saluto
Jörg |
|
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ...  | 10.08.2005 ▲ |
|
| |
|
|
Torsten
Rümker | Ciao,
[quote:1d73cd78e8=Jörg Sellmeyer]Hier ist die Version, die ich habe - funktioniert wie geschmiert![/quote:1d73cd78e8]
Leider nicht bei mir.
Das Compilat stürzt einfach ab, einzig unter Angabe der Zeilennummer.
(Ich bin jetzt Frustriert) ;) Naja werd schon noch herausfinden woran das liegt.
Kann dann ja nur noch an meinem Programm liegen oder?
MfG
Torsten Rümker |
|
| |
| Ich lerne, ob ich will oder nicht!
Betriebssystem:
- Ubuntu 15.x
- Windows (diverse)
XProfan Version: X2 | 12.08.2005 ▲ |
|
| |
|
|
 | ...oder am OS.
Vielleicht ist Deine Comschnittstelle auch besetzt. 
Probiere einfach mal unabhängig von Deinem Source ein Miniprogramm dazu zu bewegen sich aus der Startleiste auszublenden.
Oder nimm Trick 17:
KompilierenMarkierenSeparieren
Salve. |
|
| |
| |
| |
|
|
Jörg
Sellmeyer | Welche Profanversion und welches BS hast Du denn?
Schon mal
KompilierenMarkierenSeparieren
als Minimalversion ausprobiert? Evtl. auch mal InitHFT vor dem Cls ausprobieren???
Läuft meine Version denn im Interopreter?
Saluto
Jörg |
|
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 12.08.2005 ▲ |
|
| |
|
|
Torsten
Rümker | So ich habe jetzt einen Hinweis!
Also: Hauptfenster erscheint, TaskleistenSymbol wird ausgeblendet
nach 2maligem durchlaufen der Whilenot-Schleife taucht das TaskleistenSymbol
wieder auf.
Versuche ich das Verstecken des TaskleistenSymbols in die WhileNot - Wend schleife zu bauen,
beschwert sich Profan, daß eine Bereichsvariable nicht dimensioniert ist.
Ich benutze WinXP Pro und Win 2000 Profan Version 8.0a
Soll ich vielleicht mal die Schleife Posten?
MfG
Torsten |
|
| |
| Ich lerne, ob ich will oder nicht!
Betriebssystem:
- Ubuntu 15.x
- Windows (diverse)
XProfan Version: X2 | 12.08.2005 ▲ |
|
| |
|
|
Jörg
Sellmeyer | [quote:fa367cc3b4]Soll ich vielleicht mal die Schleife Posten?[/quote:fa367cc3b4]
Genau - am besten ein Stück lauffähigen, possibile reduzierten Codes. |
|
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 12.08.2005 ▲ |
|
| |
|
|
Torsten
Rümker | Mein Problem hat sich erledigt.
Es scheint nur so zu sein, daß es Probleme gibt, wenn die Proceduren IinitHFT und EndHFT
mehr als ein mal in einem Programm aufgerufen werden, leider habe ich noch nicht verstanden warum.
Auf jeden Fall funktioniert das Verschwinden bei mir jetzt auch!
Danke an alle die hier geschrieben haben!
MfG
Torsten Rümker |
|
| |
| Ich lerne, ob ich will oder nicht!
Betriebssystem:
- Ubuntu 15.x
- Windows (diverse)
XProfan Version: X2 | 16.08.2005 ▲ |
|
| |
|
(910)
Deutsch
English
Français
Español
Italia