PureBasic

Forums PureBasic
Nous sommes le Lun 18/Nov/2019 2:58

Heures au format UTC + 1 heure




Poster un nouveau sujet Répondre au sujet  [ 6 messages ] 
Auteur Message
 Sujet du message: Utilitaires basiques
MessagePosté: Sam 30/Mar/2019 13:30 
Hors ligne
Avatar de l’utilisateur

Inscription: Ven 16/Oct/2015 18:22
Messages: 315
Localisation: France
Bonjour,

3 petits utilitaires sans prétention qui me facilitent la vie, runnotepad, runnotepad++ et runwordpad

En fond d'écran du Bureau, j'ai rajouté un menu Fichiers
Ce menu me permet de rapidement créer le type de fichier que je souhaite.
Quand je le sélectionne, il me présente plusieurs sous-menus dont:
Fichier pb
Fichier txt
Fichier txt+
Fichier rtf
etc...
Cela me permet de créer un fichier unique d'un simple clic dans pb, notepad, notepad++,wordpad,...
Pour Notepad++, j'utilise une version portable "Notepad++ minimalist package 32-bit x86"
Pour enregistrer notepad++ dans les menus contextuels, voici la méthode que j'utilise
Citation:
::-------------------------------------------
:: To register Notepad++ as shell extension

:: As admin cmd goto NPP folder

:: for X86
regsvr32 /i NppShell32.dll

:: for X64
regsvr32 /i NppShell64.dll
::-------------------------------------------
:: To unregister Notepad++ as shell extension

:: As admin cmd goto NPP folder

:: for X86
regsvr32 /u NppShell32.dll

:: for X64
regsvr32 /u NppShell64.dll
::-------------------------------------------
RUNNOTEPAD
Code:
;
;************************************************************************
;Titre      : runnotepad.pb
;Auteur     : (C) 2019 CAGE
;Date       : 2019/03/30
;Version PB : PureBasic 5.70 LTS (Windows - x86)
;Version PB : PureBasic 5.70 LTS (Windows - x64)
;Compiler Options
;Compiler Options : Executable format: Console ou Windows au choix
;Compile/Run      : Create temporary executable in the source directory
;
;Libairies: aucunes
;
;************************************************************************
;

EnableExplicit

OnErrorGoto(?ErrorHandler)

Define DESKTOP$ = GetUserDirectory(#PB_Directory_Desktop)

Define ext$ = ".txt"

Define NOTEPAD$ = "notepad.exe"

Define D = Date()

Define YY = Year(D)
Define MM = Month(D)
Define DD = Day(D)
Define HH = Hour(D)
Define II = Minute(D)
Define SS = Second(D)

Define out, FILE$

FILE$ = DESKTOP$
FILE$ + "Fichier_"
FILE$ + RSet(Hex(YY+MM+DD+II+SS),4,"0") + ext$

If FileSize(FILE$) = -1
  out = OpenFile(#PB_Any, FILE$, #PB_UTF8)
  If out
    WriteStringN(out,FormatDate("%yyyy/%mm/%dd %hh:%ii:%ss", D ))
    CloseFile(out)
  Else
    End
  EndIf
EndIf

RunProgram(NOTEPAD$, FILE$, DESKTOP$)

ErrorHandler:

End
RUNNOTEPAD++
Code:
;
;************************************************************************
;Titre      : runnotepad++.pb
;Auteur     : (C) 2019 CAGE
;Date       : 2019/03/30
;Version PB : PureBasic 5.70 LTS (Windows - x86)
;Version PB : PureBasic 5.70 LTS (Windows - x64)
;Compiler Options
;Compiler Options : Executable format: Windows ou Console au choix
;Compile/Run      : Create temporary executable in the source directory
;
;Libairies: aucunes
;
;************************************************************************
;

EnableExplicit

OnErrorGoto(?ErrorHandler)

Define DESKTOP$ = GetUserDirectory(#PB_Directory_Desktop)

Define ext$ = ".txt"

Define NOTEPAD$ = "y:\yh\tools\npp\notepad++.exe"

Define D = Date()

Define YY = Year(D)
Define MM = Month(D)
Define DD = Day(D)
Define HH = Hour(D)
Define II = Minute(D)
Define SS = Second(D)

Define out, FILE$

FILE$ = DESKTOP$
FILE$ + "Fichier_"
FILE$ + RSet(Hex(YY+MM+DD+II+SS),4,"0") + ext$

If FileSize(FILE$) = -1
  out = OpenFile(#PB_Any, FILE$, #PB_UTF8)
  If out
    WriteStringN(out,FormatDate("%yyyy/%mm/%dd %hh:%ii:%ss", D ))
    CloseFile(out)
  Else
    End
  EndIf
EndIf

RunProgram(NOTEPAD$, FILE$, DESKTOP$)

ErrorHandler:

End
RUNWORDPAD
Code:
;
;************************************************************************
;Titre      : runnotepad++.pb
;Auteur     : (C) 2019 CAGE
;Date       : 2019/03/30
;Version PB : PureBasic 5.70 LTS (Windows - x86)
;Version PB : PureBasic 5.70 LTS (Windows - x64)
;Compiler Options
;Compiler Options : Executable format: Windows ou Console au choix
;Compile/Run      : Create temporary executable in the source directory
;
;Libairies: aucunes
;
;************************************************************************
;

EnableExplicit

OnErrorGoto(?ErrorHandler)

Define DESKTOP$ = GetUserDirectory(#PB_Directory_Desktop)

Define ext$ = ".txt"

Define NOTEPAD$ = "y:\yh\tools\npp\notepad++.exe"

Define D = Date()

Define YY = Year(D)
Define MM = Month(D)
Define DD = Day(D)
Define HH = Hour(D)
Define II = Minute(D)
Define SS = Second(D)

Define out, FILE$

FILE$ = DESKTOP$
FILE$ + "Fichier_"
FILE$ + RSet(Hex(YY+MM+DD+II+SS),4,"0") + ext$

If FileSize(FILE$) = -1
  out = OpenFile(#PB_Any, FILE$, #PB_UTF8)
  If out
    WriteStringN(out,FormatDate("%yyyy/%mm/%dd %hh:%ii:%ss", D ))
    CloseFile(out)
  Else
    End
  EndIf
EndIf

RunProgram(NOTEPAD$, FILE$, DESKTOP$)

ErrorHandler:

End

_________________
■ Win10 64-bit (Intel Celeron CPU N2920 @ 1.86GHz, 4,0GB RAM, Intel HD Graphics) & PB 5.70 LTS
■ Vivre et laisser vivre.
■ PureBasic pour le fun
■ Mes sites: http://pbcage.free.fr - http://yh.toolbox.free.fr


Haut
 Profil  
Répondre en citant le message  
 Sujet du message: Re: Utilitaires basiques
MessagePosté: Sam 30/Mar/2019 22:35 
Hors ligne
Avatar de l’utilisateur

Inscription: Ven 16/Oct/2015 18:22
Messages: 315
Localisation: France
Bonsoir,

Un autre utilitaire (runpb) pour PB cette fois.
Il permet d'ouvrir PB avec un fichier unique sur le bureau
Code:
;
;************************************************************************
;Titre      : runpb.pb
;Auteur     : (C) 2019 CAGE
;Date       : 2019/03/30
;Version PB : PureBasic 5.70 LTS (Windows - x86)
;Version PB : PureBasic 5.70 LTS (Windows - x64)
;Compiler Options
;Compiler Options : Executable format: Windows ou Console au choix
;Compile/Run      : Create temporary executable in the source directory
;
;Libairies: aucunes
;
;************************************************************************
;

EnableExplicit

OnErrorGoto(?ErrorHandler)

Define DESKTOP$ = GetUserDirectory(#PB_Directory_Desktop)

Define ext$ = ".pb"

Define ALIAS$ = "CAGE"

Define PUREBASIC$ = "C:\Program Files\PureBasic\PureBasic.exe"

Define D = Date()

Define YY = Year(D)
Define MM = Month(D)
Define DD = Day(D)
Define HH = Hour(D)
Define II = Minute(D)
Define SS = Second(D)

Define out, FILE$

FILE$ = DESKTOP$
FILE$ + "Fichier_"
FILE$ + RSet(Hex(YY+MM+DD+II+SS),4,"0") + ext$

Define t$
t$ = ";"+#CRLF$
t$ + ";************************************************************************"+#CRLF$
t$ + ";Titre      : Application.pb"+#CRLF$
t$ + ";Auteur     : (C) "+FormatDate("%yyyy",D)+" "+ALIAS$+#CRLF$
t$ + ";Date       : "+FormatDate("%yyyy/%mm/%dd %hh:%ii:%ss", D)+#CRLF$
t$ + ";Version PB : PureBasic 5.70 LTS (Windows - x86)"+#CRLF$
t$ + ";Version PB : PureBasic 5.70 LTS (Windows - x64)"+#CRLF$
t$ + ";Compiler Options"+#CRLF$
t$ + ";Compiler Options : Enable moderm theme support (for Windows X and above)"+#CRLF$
t$ + ";Compiler Options : Executable format: Windows ou Console au choix"+#CRLF$
t$ + ";Compiler Options : Request Administrator mode for Windows Vista and above"+#CRLF$
t$ + ";Compile/Run      : Create temporary executable in the source directory"+#CRLF$
t$ + ";"+#CRLF$
t$ + ";Libairies: aucunes"+#CRLF$
t$ + ";"+#CRLF$
t$ + ";************************************************************************"+#CRLF$
t$ + ";"+#CRLF$
t$ + "EnableExplicit"+#CRLF$
t$ + #CRLF$
t$ + "OnErrorGoto(?ErrorHandler)"+#CRLF$
t$ + #CRLF$
t$ + "; <--- Inclure le programme ici"+#CRLF$
t$ + #CRLF$
t$ + "ErrorHandler:"+#CRLF$
t$ + #CRLF$
t$ + "End"+#CRLF$

If FileSize(FILE$) = -1
  out = OpenFile(#PB_Any, FILE$, #PB_UTF8)
  If out
    WriteStringN(out, "; "+FormatDate("%yyyy/%mm/%dd %hh:%ii:%ss", D ))
    WriteStringN(out, t$)
    CloseFile(out)
  Else
    End
  EndIf
EndIf

RunProgram(PUREBASIC$, FILE$, DESKTOP$)

ErrorHandler:

End
CAGE

_________________
■ Win10 64-bit (Intel Celeron CPU N2920 @ 1.86GHz, 4,0GB RAM, Intel HD Graphics) & PB 5.70 LTS
■ Vivre et laisser vivre.
■ PureBasic pour le fun
■ Mes sites: http://pbcage.free.fr - http://yh.toolbox.free.fr


Haut
 Profil  
Répondre en citant le message  
 Sujet du message: Re: Utilitaires basiques
MessagePosté: Sam 30/Mar/2019 22:47 
Hors ligne
Avatar de l’utilisateur

Inscription: Ven 16/Oct/2015 18:22
Messages: 315
Localisation: France
Voici un fichier reg pour ajouter le menu Applications fichiers au menu clic doit du bureau.

Image

Pensez a modifier les noms des dossiers y:\\yh\\tools\\npp\\ et y:\\dos\\

Vous trouverez toutes les sources ici

Contenu du fichier HCR_DesktopBackgroundMenu7-Applications_fichiers.reg
Code:
Windows Registry Editor Version 5.00

[HKEY_CLASSES_ROOT\DesktopBackground\Shell\Menu7]
"MUIVerb"="Applications fichiers"
"SubCommands"="notepad;npp;wordpad;runpb;runwordpad;runnotepad;runnotepad++"
"icon"="explorer.exe"
"Position"="Top"

;//

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\CommandStore\shell\notepad]
@="Notepad"
"icon"="notepad.exe"

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\CommandStore\shell\notepad\command]
@="notepad.exe"

;//

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\CommandStore\shell\npp]
@="Notepad++"
"icon"="y:\\yh\\tools\\npp\\notepad++.exe"

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\CommandStore\shell\npp\command]
@="y:\\yh\\tools\\npp\\notepad++.exe"

;//

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\CommandStore\shell\wordpad]
@="Wordpad"
"icon"="C:\\Program Files\\Windows NT\\Accessories\\wordpad.exe"

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\CommandStore\shell\wordpad\command]
@="wordpad.exe"

;//----------------------------------------------------------------------------------------------------------


[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\CommandStore\shell\runpb]
@="Fichier pb (purebasic)"
"icon"="runpb.exe"
"CommandFlags"=dword:00000020

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\CommandStore\shell\runpb\command]
@="y:\\dos\\runpb.exe"

;//

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\CommandStore\shell\runwordpad]
@="Fichier rtf (wordpad)"
"icon"="runwordpad.exe"

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\CommandStore\shell\runwordpad\command]
@="y:\\dos\\runwordpad.exe"

;//

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\CommandStore\shell\runnotepad]
@="Fichier txt (notepad)"
"icon"="runnotepad.exe"

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\CommandStore\shell\runnotepad\command]
@="y:\\dos\\runnotepad.exe"

;//

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\CommandStore\shell\runnotepad++]
@="Fichier txt (notepad++)"
"icon"="runnotepad++.exe"

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\CommandStore\shell\runnotepad++\command]
@="y:\\dos\\runnotepad++.exe"

CAGE

_________________
■ Win10 64-bit (Intel Celeron CPU N2920 @ 1.86GHz, 4,0GB RAM, Intel HD Graphics) & PB 5.70 LTS
■ Vivre et laisser vivre.
■ PureBasic pour le fun
■ Mes sites: http://pbcage.free.fr - http://yh.toolbox.free.fr


Haut
 Profil  
Répondre en citant le message  
 Sujet du message: Re: Utilitaires basiques
MessagePosté: Sam 30/Mar/2019 23:09 
Hors ligne
Avatar de l’utilisateur

Inscription: Dim 09/Oct/2005 16:51
Messages: 8779
J'avais paumé un code similaire (au dernier) pour lancer la désinstalle d'un programme via un clic droit.
Merci

Notez que pour les icones, vous pouvez indiquer un fichier .ico
Si ce fichier contient plusieurs icones, il vous faudra ajouter une virgule et un chiffre allant de 0 à x
Ex : CHEMIN\mon_icone.ico,0 pour afficher la 1ere icone ou CHEMIN\mon_icone.ico,2 pour afficher la 3eme icone etc..

_________________
~~~~Règles du forum ~~~~
.: Ar-S :. Tour + portable W10 x64 PB 5.4x / 5.6x
LDV MULTIMEDIA : Dépannage informatique & mes Logiciels PB
RESIZER GOLD : Mon logiciel de redimensionnement par lot 100% PB


Haut
 Profil  
Répondre en citant le message  
 Sujet du message: Re: Utilitaires basiques
MessagePosté: Lun 22/Avr/2019 8:42 
Hors ligne
Avatar de l’utilisateur

Inscription: Dim 09/Oct/2005 16:51
Messages: 8779
cage a écrit:
Voici un fichier reg pour ajouter le menu Applications fichiers au menu clic doit du bureau.


Je suis en train de faire un logiciel pour ajouter des exe / dossiers au menu contextuel.
Pour le moment je n'ai pas implanté les sous dossiers (MUIverb) et l'accès aux commandes windows (ton .reg le fait très bien).

Image

_________________
~~~~Règles du forum ~~~~
.: Ar-S :. Tour + portable W10 x64 PB 5.4x / 5.6x
LDV MULTIMEDIA : Dépannage informatique & mes Logiciels PB
RESIZER GOLD : Mon logiciel de redimensionnement par lot 100% PB


Haut
 Profil  
Répondre en citant le message  
 Sujet du message: Re: Utilitaires basiques
MessagePosté: Lun 22/Avr/2019 9:29 
Hors ligne
Avatar de l’utilisateur

Inscription: Ven 25/Avr/2008 11:14
Messages: 1337
bjr cage
sympa le menu appli..
merci pour le partage :D

Cordialement


Haut
 Profil  
Répondre en citant le message  
Afficher les messages postés depuis:  Trier par  
Poster un nouveau sujet Répondre au sujet  [ 6 messages ] 

Heures au format UTC + 1 heure


Qui est en ligne

Utilisateurs parcourant ce forum: Aucun utilisateur enregistré et 2 invités


Vous ne pouvez pas poster de nouveaux sujets
Vous ne pouvez pas répondre aux sujets
Vous ne pouvez pas éditer vos messages
Vous ne pouvez pas supprimer vos messages

Rechercher:
Aller à:  

 


Powered by phpBB © 2008 phpBB Group | Traduction par: phpBB-fr.com
subSilver+ theme by Canver Software, sponsor Sanal Modifiye