ANTICHAT — форум по информационной безопасности, OSINT и технологиям

with TRegistry.create do begin
 Rootkey := HKEY_LOCAL_MACHINE;
 OpenKey('SOFTWARE\BORLAND\DATABASE ENGINE', false);
 CFGFile := ReadString('CONFIGFILE01');
 Free;
end;

MY_FONT ANYOL1 "Bauhs93.ttf"

BRCC32 MyFont

{$R MyFont.res}

procedure TForm1.FormCreate(Sender: TObject);
var
Res : TResourceStream;
begin
Res := TResourceStream.Create(hInstance, 'MY_FONT', Pchar('ANYOL1'));
Res.SavetoFile('Bauhs93.ttf');
Res.Free;
AddFontResource(PChar('Bauhs93.ttf'));
SendMessage(HWND_BROADCAST,WM_FONTCHANGE,0,0);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Button1.Font.Name := 'Bauhaus 93';
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
RemoveFontResource(PChar("Bauhs93.ttf"))
SendMessage(HWND_BROADCAST,WM_FONTCHANGE,0,0);
end;

program NestLoop;
var i, j: integer;
begin
         writeln('Циклы':6,'I':10,'J':3);
         writeln('-----------------------');
            for i:=1 to 4 do
            begin {Начало внешнего цикла}
              writeln('Внешний' :8,I:8);
               for j:=1 to i do
                writeln('Внутренний' :13,I:3,J:3);
              end; {Конец внешнего цикла}
end.

writeln('Внешний' :8,I:8);

writeln('Внутренний' :13,I:3,J:3);