Helló Mindenkinek!!!
Tegnap kezdtem Lazarusba átírni egy Delphi 7 progimat.
(most használok először Lazarust!)
Egész jól sikerült, de van egy Delphi komponensem, amivel nem bírok.
Szeretnék megkérni itt valakit, hogy fordítsa át nekem, cserébe
én is adok egy használható progivédelmet Lazarusban.
A fenti Delphi compi is progivédelem, (AppProtector) és nekem ez kellene Lazarushoz. Linkek alább.
Egy tipp a progivédelemhez:
Ha van sok eseményed a programodban, akkor a lehető legtöbb helyen ellenőrizd a programvédelmet. De ami a legfontosabb: egy Timer-ben hozz létre egy futásidőben létrehozott Timert, amiben ellenőrzöd a programvédelmet.
pl.:
private
{ Private declarations }
procedure DoClick(Sender: TObject);
.....
function HDD_Serial : string;
var SerialNum : dword;
a, b : dword;
Buffer : array [0..255] of char;
begin
if GetVolumeInformation('c:\\', Buffer, SizeOf(Buffer), @SerialNum, a, b, nil, 0) then
Result := IntToHex(SerialNum, 8)
else
Result := '';
end;
..........
with TTimer.Create(Self) do begin
Parent:=Self;
interval:=3246;
Ontimer:=DoClick; end;
......
procedure TForm1.DoClick(Sender: TObject);
begin
if HDD_Serial<>'xxxxxxxx' then application.Terminate;
end;
És a DoClicket a lehető legtöbb helyre beszúrni.\r\nEz egy elég jó védelem. Persze ez is törhető.
Akit érdekel egy komoly leírás a programvédelemmel kapcsolatban:
delphi.pernita.hu/6/index.htm
Lazarus GET HDD SERIAL:
freeware1.hostzi.com/Comp/GET-HDD-SERIAL.rar
És amit át kellene konvertálni:
freeware1.hostzi.com/Comp/AppProtector.rar
Előre is köszönöm a segítséget!!!!
