une librairie pour l'accès à la base des registres

[Golfy]

Bonjour,

nouveau sur PureBasic, j'utilisai RapidQ Basic (freeware sur le déclin car William YU en a arrêté le développement). L'autre défaut est l'impossibilité d'avoir de vrai .EXE (RQBasic génère un P-Code inclut avec le runtime).

En revanche, l'accès aux clés de registre se faisait par une librairie incluse :

Code : Tout sélectionner

Const HKEY_LOCAL_MACHINE = &H80000002

DIM Registry AS QRegistry
DIM ProtAVG AS STRING
DIM APO AS STRING
APO=chr$(34)
ProtAVG=APO+"C:\Program Files\AVPersonal\AVGNT.EXE"+APO+" /min"
Registry.RootKey = HKEY_LOCAL_MACHINE
Registry.OpenKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Run", 0)

IF Registry.ReadString("AVGCtrl") = ProtAVG THEN
  ShowMessage("Protection AVG")
ELSE
  ShowMessage("pas de protection !")
  ShowMessage(Registry.ReadString("AVGCtrl")+chr$(13)+ProtAVG)
END IF

Existe-t'il une librairie similaire sous PureBasic ?

D'autre part, je voudrais savoir si on peut détecter un double-clic sur une forme (un gadget) ? la fonction WaitWindowEvent() ne semble rien avoir dans ce sens là...
De même pour le drag'n drop (glisser-déposer) ?

Merci d'avance !
Golfy

[Golfy]

Autant pour moi, je connaissais pas purearena :
RegINI_Lib de Paul Leischow me convient.

En revanche, les autres questions restent d'actualités :

D'autre part, je voudrais savoir si on peut détecter un double-clic sur une forme (un gadget) ? la fonction WaitWindowEvent() ne semble rien avoir dans ce sens là...
De même pour le drag'n drop (glisser-déposer) ?

[Guimauve]

Bonjour et bienvenu sur le forum PureBasic.

Pour ta 2e question voiçi comment je fais pour détecter un double clique sur un gadget à mettre dans la boucle de gestion des évenementa après le EventID = WaitWindowEvent() :

Code : Tout sélectionner

If EventID = #PB_EventGadget
    start = GetTickCount_() ; Note time of first click.
    GetAsyncKeyState_(#VK_LBUTTON) ; Clear left mouse buffer.
    Repeat : Until GetAsyncKeyState_(#VK_LBUTTON) <> 0 Or GetTickCount_() - start > GetDoubleClickTime_()
    If GetTickCount_() - start < GetDoubleClickTime_() ; Timed out!
        ; Mettre ici le code à exécuter
        SetClipboardText(GetGadgetText(#Listview_constante))
    EndIf
EndIf

A+
Guimauve

[Backup]

bienvenue a toi !!

Voir le TUTO sur la souris en rubrique "Debutant"

[Golfy]

(Oups)

effectivement, la règle N°1 des forums : la recherche

Merci pour vos réponses.