Delphidə proqramın açılışına şifrə qoymaq üçün aşağıdakı kodları Forumun oncreate-ə əlavə edin.
Kod:
procedure TForm1.FormCreate(Sender: TObject);
var
x,b:string;
begin
b:='Buraya şifrənizi yazın';
x:=inputbox('Proqrama Giriş','Programa girmək üçün şifrə daxil edin:','');
if x=b then
application.messagebox('Proqrama Giriş tamamlandı.Təbriklər..!','Təbriklər',mb_ok+mb_defbutton1)
else
halt;
end;
end.
d;
end. [/code]