WinAPI Library (Snippets) (1163 Beispielcodes)

[RSBasic]

@KatSeiko
Tut mir leid, ich hab dein Beitrag übersehen

>Punkt 2 - wie lässt man ein Fenster per API blinken?
http://www.rsbasic.i3h.de/index.php?opt ... &Itemid=59

>Punkt 3 - kann man den Titel eines anderen Fensters ändern?
http://www.rsbasic.i3h.de/index.php?opt ... &Itemid=59

>Punkt 4 - wie sorgt man dafür, dass ein Fenster nachträglich randlos wird?

Code: Alles auswählen

RunProgram("notepad.exe","","",0)
Delay(100)
Handle = FindWindow_("notepad",#Null)
If Handle
  SetWindowLong_(Handle,#GWL_STYLE,GetWindowLong_(Handle,#GWL_STYLE)&~#WS_DLGFRAME)
EndIf

[ts-soft]

Hier nochmal ein kleiner Hinweis, der nicht unbedingt zum Thema gehört:
Man sollte SetWindowLongPtr statt SetWindowLong verwenden, hat dieselbe
Syntax, sorgt aber für X64 Kompatibilität!
Dasselbe für GetWindowLong u. ä.

[RSBasic]

Hinzugefügt:


Dateien:
• Datei-Änderung schützen

Dialoge:
• Netzwerklaufwerk verbinden-Dialog öffnen

Internet:
• Verbindungstyp ermitteln

Maus und Tastatur:
• Scrollrad simulieren

Prozesse:
• Fensterrahmen entfernen
• Größenänderungsgadget entfernen
• Fenstertitel ermitteln

Laufwerke:
• Laufwerk öffnen
• Laufwerk schließen


http://www.api-library.i3h.de


@ts-soft
Vielen Dank für die Info

[edel]

Größenänderungsgadget ?Was soll das sein?

[RSBasic]

@edel
Tjo, so heißt es in "PB" :P siehe Hilfe...

#PB_Window_SizeGadget : Fügt das Größenänderungs-Gadget zum Fenster hinzu.

Keine Ahnung, wie es richtig heißt, kannst du es mir sagen?

[edel]

Achso, Stausbar. Dann ist das aber nen Style der Statusbar und kein eigenes Gadget. Nennt sich sizegrip.

[RSBasic]

Hinzugefügt:


Dateien:
• Datei mit einem Bearbeitungsprogramm öffnen

Desktop:
• Bildschirmauflösung ändern

Dialoge:
• Druckerverbindung herstellen-Dialog öffnen

Prozesse:
• Menü entfernen
• Programm beenden

Sonstige:
• Computername ermitteln
• Delay
• Drucker und Faxgeräte öffnen
• Hilfe- und Supportcenter öffnen
• Klassik-Design aktivieren
• Screenshot erstellen
• Systemsteuerung öffnen
• Ton erzeugen
• Windows Task-Manager öffnen
• Windowsordner-Pfad ermitteln
• Windows-Sprache ermitteln
• Windows-Suche öffnen


http://www.api-library.i3h.de

[ts-soft]

> • Windowsordner-Pfad ermitteln
Das wäre aber:

Code: Alles auswählen

GetWindowsDirectory_(

und nicht:

Code: Alles auswählen

GetSystemDirectory_(

[RSBasic]

@ts-soft
Wird demnächst geändert und hinzugefügt.

[ts-soft]

@ts-soft
Wird demnächst geändert und hinzugefügt.

Dann würde ich es so vorschlagen:

Code: Alles auswählen

EnableExplicit

Define WinDir.s{#MAX_PATH}, SysDir.s{#MAX_PATH}

GetWindowsDirectory_(@WinDir, #MAX_PATH)
GetSystemDirectory_(@SysDir, #MAX_PATH)

If Right(WinDir, 1) <> "\" : WinDir + "\" : EndIf
If Right(SysDir, 1) <> "\" : SysDir + "\" : EndIf

Debug WinDir
Debug SysDir 

PB liefert immer alle Pfad mit abschließendem Backslash