Die Suche ergab 143 Treffer

Zur erweiterten Suche

von Rudi
12.03.2017 10:33
Forum: Feedback - Anwendungen
Thema: WinAPI Library (Offline)
Antworten: 124
Zugriffe: 44637

Re: WinAPI Library (Offline)

Nee, ich habe nach langer Zeit nur diese zwei Codes eingereicht: "Hardware-Profil GUID ermitteln 2" und "Registry auf Veränderung überwachen".
Der erstere dürfte schon vor einem halben oder ganzen Jahr eingereicht worden sein. Wer braucht schon so lange für einen Umzug? Oder verlegst Du deinen ...
von Rudi
11.03.2017 18:39
Forum: Feedback - Anwendungen
Thema: WinAPI Library (Offline)
Antworten: 124
Zugriffe: 44637

Re: WinAPI Library (Offline)

Wenn Du eingereichte Codes ohnehin nicht übernimmst, kannst Du dir die Arbeit sparen!
von Rudi
14.01.2017 19:25
Forum: Windows
Thema: WinAPI Library (Snippets) (1163 Beispielcodes)
Antworten: 423
Zugriffe: 180203

Re: WinAPI Library (Snippets) (1.077)

Weil ich das grade noch hier rumliegen habe: Registry auf Veränderung überwachen (RegNotifyChangeKeyValue_): EnableExplicit

#REG_NOTIFY_ALL = #REG_NOTIFY_CHANGE_LAST_SET|#REG_NOTIFY_CHANGE_ATTRIBUTES|#REG_NOTIFY_CHANGE_NAME|#REG_NOTIFY_CHANGE_SECURITY

Define Key, hEvent, Error

Procedure.s ...
von Rudi
07.12.2016 22:39
Forum: Offtopic
Thema: Alle Jahre wieder...
Antworten: 53
Zugriffe: 33486

Re: Alle Jahre wieder...

http://www.franzis.de/adventskalender2016 <)
von Rudi
23.10.2016 18:51
Forum: Windows
Thema: ContainerGadget statt eigenes Fenster
Antworten: 9
Zugriffe: 5025

Re: ContainerGadget statt eigenes Fenster

So kannste noch das Aufflackern des zu integrierenden Fensters verhindern und beide Fenster neu zeichnen :wink: : EnableExplicit

Define Handle

If OpenWindow(0, 0, 0, 500, 400, "Window", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
If ContainerGadget(1, 0, 0, WindowWidth(0), WindowHeight(0 ...
von Rudi
11.10.2016 16:03
Forum: Allgemein
Thema: Wo ist hier bitte die Sprache verstellt ?
Antworten: 2
Zugriffe: 1468

Re: Wo ist hier bitte die Sprache verstellt ?

Immer wieder das Gleiche: InitNetwork()

ConnectionID = OpenNetworkConnection("table.finance.yahoo.com", 80)

If ConnectionID
com$="GET http://table.finance.yahoo.com/table.csv?s=IBM&g=d HTTP/1.1"+Chr(13)+Chr(10)
com$=com$+"Accept: */*"+Chr(13)+Chr(10)
com$=com$+"Accept: text/html"+Chr(13)+Chr(10 ...
von Rudi
03.10.2016 09:51
Forum: Code, Tipps und Tricks
Thema: CreateWindowShot(hWnd, Client=#True)
Antworten: 11
Zugriffe: 5961

Re: CreateWindowShot(hWnd, Client=#True)

Hier nun noch eine weitere und wohl letzte Version, mit Anwendung der PrintWindow_() API.
Um das Date-Gadget aufzunehmen, einfach ein anderes Datum angeben! EnableExplicit

CompilerSelect #PB_Compiler_OS
CompilerCase #PB_OS_Windows
;CompilerError "Dieser Code läuft nicht unter Windows ...
von Rudi
01.10.2016 22:42
Forum: Anfänger
Thema: Schleife - Ereigniss erst wenn Änderung?
Antworten: 7
Zugriffe: 2615

Re: Schleife - Ereigniss erst wenn Änderung?

Oder so:

Code: Alles auswählen

Repeat
	Nb_Monitors1 = ExamineDesktops()
	
	If Nb_Monitors1 <> Nb_Monitors2
		Nb_Monitors2 = Nb_Monitors1
		Debug "You have "+Nb_Monitors2+" monitor(s) connected!"
	EndIf
	
	Delay(1000)
ForEver
von Rudi
01.10.2016 22:16
Forum: Code, Tipps und Tricks
Thema: CreateWindowShot(hWnd, Client=#True)
Antworten: 11
Zugriffe: 5961

Re: CreateWindowShot(hWnd, Client=#True)

Heute mal ein Code, der auf die #WM_PRINT Message setzt: EnableExplicit

CompilerSelect #PB_Compiler_OS
CompilerCase #PB_OS_Windows
;CompilerError "Dieser Code läuft nicht unter Windows!"
CompilerCase #PB_OS_Linux
CompilerError "Dieser Code läuft nicht unter Linux!"
CompilerCase #PB_OS_MacOS ...
von Rudi
01.10.2016 21:47
Forum: Anfänger
Thema: Schleife - Ereigniss erst wenn Änderung?
Antworten: 7
Zugriffe: 2615

Re: Schleife - Ereigniss erst wenn Änderung?

Diesen:

Code: Alles auswählen

Nb_Monitors = ExamineDesktops()

Repeat 
  
  If Nb_Monitors <> ExamineDesktops()
  	Nb_Monitors = ExamineDesktops()
    Debug "You have "+Nb_Monitors+" monitors connected!"
  EndIf
  
  Delay(1000)

ForEver

Zur erweiterten Suche