Protection copie cd, ou programme sur dongle usb

Télécharger le projet
Commenter

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;
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

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.

Du même auteur (huugooo)