Einzelnen Beitrag anzeigen

sunrise

Registriert seit: 20. Jan 2008
15 Beiträge
 
Delphi 6 Enterprise
 
#1

Frage bez.Kopierschutz in Delphi(H-id bsp.)

  Alt 31. Okt 2008, 23:44
Hallo

Ich habe neulich von einem freund ein code beispiel bekommen,welcher die Seriennummer der HD ausliest und beim Programmstart diese überprüft. Ich habe die vermutung das sich nach diesem Hardware-ID-Protection Beispiel das Programm nach einem Format nicht mehr starten lässt ,da sich die Nr.der HD doch ändert. Was meint ihr dazu?

Code:
function GetSerialNumber(const ADrive: Char): integer;
var
SerialNum: DWORD;
Dummy: DWord;
Buffer: array[0..255] of Char;
begin
Result:=0;
if GetVolumeInformation(PChar(ADrive+':\'),buffer,
SizeOf(Buffer),@SerialNum,Dummy,Dummy,nil,0) then
Result:=SerialNum
else
RaiseLastOSError;
end;


// Überprüfen der Nr. von C: mit '12121212'.

if IntToHex(GetSerialNumber('C'),8) <> '12121212' then ExitProcess(0);


  Mit Zitat antworten Zitat