- 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;
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;