Операцион тизим ва қурилмалар билан ишлаш Компьютер имкониятлари тўғрисидаги тизимли маълумотлар

end;
end;
Тизимга қандай принтерлар ўрнатилганлигини аниқлаш


Биринчи усул.
Uses Registry;


procedure TForm1.Button1Click(Sender: TObject);
var
m: TRegistry;
i: integer;
l: TstringList;
s: string;
begin
m := TRegistry.Create; l := TStringList.Create;
s := '\System\CurrentControlSet\Control\Print\Printers';
m.RootKey := HKEY_LOCAL_MACHINE;
m.OpenKey(s, false);
m.GetKeyNames(l); // принтерлар рўйхатини оламиз
m.CloseKey;
ListBox1.Items.Clear;
for i := 0 to l.Count - 1 do begin
m.OpenKey(s + '\' + l[i], false);
//принтерлар номини рўйхатга қўшамиз
ListBox1.Items.Add(m.ReadString('Name'));
m.CloseKey;
end;
m.Free;
l.Free;
end;


Иккинчи усул.
uses printers;


procedure TForm1.Button1Click(Sender: TObject);
var
i: integer;
begin
ListBox1.Items.Clear;
for i := 0 to Printer.Printers.Count - 1 do
ListBox1.items.Add(Printer.Printers.Strings[i]);
end;
RichEdit орқали чоп этиш


procedure TForm1.Button1Click(Sender: TObject);
var
lst: TextFile;
sc: Integer;
begin
//Printer.Orientation:=poPortraite
AssignFile(lst,'prn');
Rewrite(lst);
sc:=0;
for sc:=0 to RichEdit1.Lines.Count-1 do
writeln(lst,StrToOem(RichEdit1.Lines[sc]));
System.CloseFile(lst);
end;
Canvas да чоп этиш


uses
Printers;


procedure PrintText(Text: string);
begin
with Printer do