Fórum mudar a fonte do bloco de notas #295630

Function Tform1.MudaFonteNote(Afonte:string):string;
var
  Reg: Tregistry;//coloque "registry" no uses...
begin
 try
  Reg:=Tregistry.create;
  with Reg do begin
   rootkey:=HKEY_CURRENT_USER;
   Openkey(´Software\Microsoft\Notepad´,false);
   Result:= readstring(´lfFaceName´);
   if Result <> Afonte then
    writestring(´lfFaceName´, Afonte);
   closekey;
  end;
 except
 end;
end;

procedure TForm1.ImprimiPad;
var fonteantiga:string;
begin
 if FileExists(´000ce.txt´) then begin
  fonteantiga:=MudaFonteNote(´Courier´);
  WinExec(pchar(´NotePad.exe /p ´+´000ce.txt´),SW_SHOWMINIMIZED);
  MudaFonteNote(fonteantiga);
 end;
end;

Function Tform1.MudaFonteNote(vTamFonte:integer):integer;
var
  Reg: Tregistry;//coloque "registry" no uses...
begin
 try
  Reg:=Tregistry.create;
  with Reg do begin
   rootkey:=HKEY_CURRENT_USER;
   Openkey(´Software\Microsoft\Notepad´,false);
   Result:= ReadInteger(´iPointSize´);
   if Result <> vTamFonte then
    WriteInteger(´iPointSize´, vTamFonte);
   closekey;
  end;
 except
 end;
end;

procedure TForm1.ImprimiPad;
var TamFonte:integer;
begin
 if FileExists(´000ce.txt´) then begin
  TamFonte:=MudaFonteNote(200); //200= fonte 20
  WinExec(pchar(´NotePad.exe /p ´+´000ce.txt´),SW_SHOWMINIMIZED);
  MudaFonteNote(TamFonte);
 end;
end;