Ajouter des fonctions dans le menu "clique droite" de windowsRésolu

Question

Bonjour , j'aimerais savoir comment faire pour ajouter des fonction dans le menu qui apparait lors d'un clique droit sur un fichier exemple sur un fichier audio on a lire avec winamp , ajouter a la list de winamp ,...

Merci beaucoup

cs_grandvizir · Accepted Answer

Tu ouvres RegEdit.exe
Tu sélectionnes l'extension désirée. ex: .txt
Tu regardes la clé qui te fait pointer vers: textfile
Tu recherches HKLM	extfile\
Tu développes le shell\
Tu ajoutes une clé 'MonAction' tel que textfile\shell\MonAction\
Tu donnes même un libellé à ta valeur à droite dans la liste. Ca fera le caption de l'item
Encore une sous clé "command"
Tu écrit la valeur suivante à droite (guillemets importantes)
"c:\windows
otepad.exe" "%1"

Tu appliques tout cela à ton programme.

Pour capter le paramère %1, tu utiliseras la fonction ParamStr(1)

Après tu peux automatiser des trucs avec l'unité Registry. Je n'expliquerai rien à ce sujet.

===========
Validez les réponses si ok...

ViewVite : HTML - ZIP

thone08 · Answer

Merci beaucoup sa marche ;) mais j'ai encore une petite question comment je pourrait empecher une 2eme occurence du programme de se lancer tout en recuperant ses parametres ?
(j'avais vus un source a ce sujet mais je le retrouve plus)

Merci

MoveX · Answer

cest avec les mutex, ou semaphores, j ai pose la meme question....

tu as plus qu a trouver des sources maintenant...

sinon, il y a un composant, "unpas2" qui te permet de le faire egalement...

thone08 · Answer

merci ;)

ni69 · Answer

Voici le code à mettre dans le source du prog pour empecher deux exécutions simultanées d'un même programme :

program Project1;

uses
  Forms, Windows, Sysutils, Messages,
  unit1 in 'unit1.pas' {Form1};

Var
  ClassName : Array[0..255] of char;
  result : integer;
{$R *.RES}

begin
  Application.Initialize;
  Application.Title := 'Start';
  GetClassName(Application.handle, ClassName, 254);
  result := FindWindow(ClassName, 'NOMAPPLICATION');

  if result <> 0 then
    begin
      ShowWindow(result, SW_RESTORE);
      SetForegroundWindow(result);
      Application.Terminate;
    end
  else
    begin
      Application.Title := 'NOMAPPLICATION';
      Application.CreateForm(TForm1, Form1);
      Application.Run;
    end;
end.

@+
Bonne Prog'
Nico

N'oubliez pas de cliquer sur Réponse acceptée lorsque la réponse vous convient !  ;)

Ajouter des fonctions dans le menu "clique droite" de windows

5 réponses

Votre réponse

Discussions similaires