WinAPI Library (Snippets) (1163 Beispielcodes)

[Bisonte]

Da bei mir die beiden Funktionen (Dienst Pausieren und Dienst beenden) unbesehen mit IMA
wegsemmelten, hab ich den Fehler gefunden. Es war keine Struktur zu dem Pointer angegeben,
die allerdings erwartet wird.

Hab das dann mal kurzerhand mit folgendem korrigiert ...

Code: Alles auswählen

Procedure Service_Stop(Name$)
  
  Protected hSCManager, hServ, lResult
  Protected *p.SERVICE_STATUS = AllocateMemory(SizeOf(SERVICE_STATUS))
  
  hSCManager = OpenSCManager_(#Null, #Null, #GENERIC_READ	| #SC_MANAGER_CONNECT)
  If hSCManager
    hServ = OpenService_(hSCManager, Name$, #GENERIC_EXECUTE)
    If hServ
      If *p
        lResult = ControlService_(hServ, #SERVICE_CONTROL_STOP, *p)
        FreeMemory(*p)
      EndIf
      CloseServiceHandle_(hServ)
    EndIf
    CloseServiceHandle_(hSCManager)
  EndIf
  
  If hServ And lResult
    ProcedureReturn #True
  EndIf
  ProcedureReturn #False
EndProcedure

und

Code: Alles auswählen

Procedure Service_Pause(Name$)
  
  Protected hSCManager, hServ, lResult
  Protected *p.SERVICE_STATUS = AllocateMemory(SizeOf(SERVICE_STATUS))
  
  hSCManager = OpenSCManager_(#Null, #Null, #GENERIC_READ	| #SC_MANAGER_CONNECT)
  If hSCManager
    hServ = OpenService_(hSCManager, Name$, #GENERIC_EXECUTE)
    If hServ
      If *p
        lResult = ControlService_(hServ, #SERVICE_CONTROL_PAUSE, *p)
        FreeMemory(*p)
      EndIf
      CloseServiceHandle_(hServ)
    EndIf
    CloseServiceHandle_(hSCManager)
  EndIf
  If hServ And lResult
    ProcedureReturn #True
  EndIf
  ProcedureReturn #False
EndProcedure

[RSBasic]

WinAPI Library 1.2.6 wurde veröffentlicht (49 neue Beispielcodes)

Hinzugefügt:


CheckBoxGadget:

• CheckBox rechtsbündig ausrichten
• Mit Icon
• Obenbündig
• Rahmen hinzufügen
• Untenbündig
• Vertiefter Rahmen hinzufügen

DateGadget:

• Langes Datumsformat anzeigen
• Uhrzeit anzeigen

Frame3DGadget:

• Multiline
• Rechtsbündig
• Titelfarbe ändern
• Zentrieren

Gadgets:

• Screenshot eines Gadgets erstellen

HyperLinkGadget:

• Rahmen hinzufügen
• Rechtsbündig
• Vertiefter Rahmen hinzufügen

IPAddressGadget:

• Alternativtext hinzufügen
• Anzahl der Ziffern begrenzen
• Eigenes Kontextmenü
• IP-Feld deaktivieren
• Rahmen entfernen
• Schriftgröße und -art eines IP-Feldes ändern

OptionGadget:

• Mit Icon
• Obenbündig
• OptionBox rechtsbündig ausrichten
• Rahmen hinzufügen
• Untenbündig
• Vertiefter Rahmen hinzufügen

PanelGadget:

• Tabs rechtsbündig ausrichten

ProgressBarGadget:

• Warteleiste rückwärts

Prozesse:

• Text unter Maus ermitteln

ScrollAreaGadget:

• Rahmen entfernen

ShortcutGadget:

• Rahmen entfernen
• Rechtsbündig

Sonstige:

• Alle Fenster hintereinander anordnen
• Alle Fenster nebeneinander anordnen

TextGadget:

• Rechtsbündig
• Zentrieren

TrackBarGadget:

• Regler ausblenden
• Spiegeln
• Ticks ausblenden
• Ticks manuell erstellen
• Ticks oben anzeigen
• Ticks oben und unten anzeigen
• ToolTip dauerhaft anzeigen
• Vertiefung
• Vertikal ausrichten

WebGadget:

• Rahmen hinzufügen
• Vertiefter Rahmen hinzufügen

Repariert:


ComboBoxGadget:

• Alternativtext hinzufügen

StringGadget:

• Alternativtext hinzufügen

Prozesse:

• Dienst beenden
• Dienst pausieren

Online: http://www.rsbasic.de/winapi-library
Offline: Updaten

[Nino]

⇧
Tool des Jahres, Tool des Jahres, ... !!

[Bisonte]

⇧
Tool des Jahres, Tool des Jahres, ... !!

unterschreib ... unterschreib ...

Edit :
16.09.11 - 17:59
Anm.: Die Online-Version von Dienst Beenden unter Prozesse ist immer noch die alte (mit IMA)
in den "Bausteinen" importiert, per WINAPI-Library 1.2.6, in die IDE ist die richtige (ohne IMA)

[RSBasic]

@Bisonte
Sorry, ich hab dein Edit zu spät entdeckt.
Strg + F5 kann helfen.

[Bisonte]

Strg + F5 kann helfen.

Ich Dussel

[Nino]

Ich benutze am liebsten die Offline-Version der WinAPI Lbrary, zumal ich sie sehr übersichtich und benutzungsfreundlich finde. Ich würde das Programm auch gern portabel auf meinem USB-Stift benutzen, ohne dass es Spuren auf dem betr. PC hinterlässt.
Zur Zeit schreibt das Programm eine Datei Einstellungen.ini ins Verzeichnis

Code: Alles auswählen

%APPDATA%\RSBasic\WinAPI Library\

Ist es auch möglich, dass die INI-Datei optional im Programmverzeichnis gespeichert wird?

Grüße, Nino

[RSBasic]

@Nico
Gute Idee, das kann ich gerne machen...


WinAPI Library 1.2.7 wurde veröffentlicht (Offline-Update)

Hinzugefügt:

Einstellungsmöglichkeit für das Laden und Speichern der Programmeinstellungen. Die Einstellungen können nun in folgenden Verzeichnissen gespeichert werden:

• Anwendungsdatenordner (Standard)
• Programmverzeichnis (Portable)

Siehe Programmmenü "Programm\Einstellungen speichern\...".

[Nino]

Uuups ... das ging ja schnell.
Klasse, herzlichen Dank!!

Beste Grüße, Nino

[Sicro]

Hallo RSBasic,

ich finde dein Programm WinAPI Library ebenfalls richtig gut.

Folgende Fehler sind mir beim Benutzen aufgefallen:

• In Toolbar keine Grafik für "Code in PureBasic öffnen"-Button sichtbar
• Bei Änderung der Toolbar-Icongröße beendet sich das Programm, startet aber anschließend nicht wieder, wie in der Meldung angekündigt