Commentçamarche.net
CodeS-SourceS
Rechercher un code, un tuto, une réponse

Protection copie cd, ou programme sur dongle usb

5/5 (11 avis)

Vue 23 568 fois - Téléchargée 1 908 fois

Description

Programme servant à protéger vos programmes de la copie.
Vous pouvez graver votre projet sur un CD ou une clé USB et n'autoriser son exécution uniquement sur ce support
Pour cela, changez la valeur de NumeroSerieLecteur par le numéro de série de votre média
Cela nécessite d'interroger à l'avance le numéro de lecteur puis compiler et graver pour chaque
distribution, mais cela en vaut la chandelle.
Pour toute demande d'information : hugo.bulthe@free.fr

Source / Exemple :


procedure TForm1.VerifNumSerie;
var
  VolumeName      : array[0..MAX_PATH] of char;
  VolumeSerialNr  : dword;
  FileSystemName  : array[0..MAX_PATH] of char;
  fml             : dword;
  flags           : dword;
  Lecteur         : string;

const NumeroSerieLecteur = 3560779912;

begin
  Lecteur:= Copy(Application.ExeName, 1, 3);
  if (not GetVolumeInformation(Pchar(Lecteur), VolumeName, MAX_PATH, @VolumeSerialNr, fml, flags, FileSystemName, MAX_PATH)) or
  (VolumeSerialNr <> NumeroSerieLecteur) then
  begin
    MessageDlg('Copie pirate', mtWarning, [mbOK], 0);
    Application.Terminate;
  end
  else ShowMessage('Copie autorisée');

end;

Codes Sources

A voir également

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.