Zitat:
Hallo,
Ich habe dieses Problem einmal wie folgt gelöst:
Die Installationsroutine ermittelte über GetVolumeInformation die Serien-Nr. der CD.
Dieser Wert wurde in die Registry geschrieben und jedesmal beim Aufruf mit der CD verglichen.
Das wars, es ist zwar kein Kopierschutz, zwingt jedoch zum einlegen der CD.
Zitat:
Ja,
genau das könnte ich brauchen, können sie mir das genauer erklären, wie und wo mache ich so was, (beim install-schield, oder wo), und wie kann ich dann diesen wert aufrufen und vergleichen. wenn sie auch noch code haben, dass wäre prima.
Danke
Klar, hab jetzt mal ein bisschen rumprobiert und bin zu folgendem Ergebniss gekommen:
Delphi-Quellcode:
uses Registry;
function Seriennummer(Laufwerk: PChar): string;
var
NotUsed: DWORD;
VolumeFlags: DWORD;
VolumeInfo: array[0..MAX_PATH] of Char;
VolumeSerialNumber: DWORD;
begin
GetVolumeInformation(PChar(Laufwerk + ':\'),
nil, SizeOf(VolumeInfo), @VolumeSerialNumber, NotUsed,
VolumeFlags, nil, 0);
Result := Format('%8.8X',[VolumeSerialNumber])
end;
procedure TForm1.FormCreate(Sender: TObject);
var
Reg: TRegistry;
Serial, RegSerial: String;
begin
Serial:=Seriennummer('E');
try
Reg:= TRegistry.Create;
Reg.Rootkey:=HKEY_CURRENT_USER;
if not Reg.KeyExists('Software\Uncle Cracker')
then begin
Reg.Openkey('Software\Uncle Cracker',true);
Reg.WriteString('Seriennummer', Serial)
end else begin
Reg.Openkey('Software\Uncle Cracker',true);
RegSerial:=Reg.ReadString('Seriennummer');
if not (RegSerial=Serial) then begin Showmessage('Falsche CD im Laufwerk'); halt
end;
end;
finally
Reg.Free;
end;
end;
Ist zwar nicht der schönste Code, doch er funktioniert.
Also:
Beim 1. starten schreibt das Programm die CD-Seriennummer in die Registry.
Beim 2. starten überprüft es jedesmal, ob es die gleiche Seriennummer ist wie beim letztem Start auch.
Das ganze könnte man jetzt ins Programm einbauen, doch anstatt Seriennummer('E') zu übergeben einfach den Laufwerkstypen auf dem das Programm gestartet wurde.
[Edit]PS: Falls es noch fragen zum Code gibt, einfach stellen
[/Edit]