Como eu não tinha pensado nisso antes! Fiz a rotina abaixo e funcionou beleza.
Obrigado Rubem!
procedure TfrmPrincipal.FormCreate(Sender: TObject);
var Reg : TRegistry;
begin
Reg := TRegistry.Create;
Reg.RootKey := HKEY_CURRENT_USER;
Reg.OpenKey('Software\Microsoft\Notepad\', False);
if (Reg.ReadString('lfFaceName') <> 'Courier') then
Reg.WriteString('lfFaceName', 'Courier');
Reg.CloseKey;
Reg.Free;
end;
----- Original Message -----
From: Rubem Nascimento da Rocha
To: delphi-br
Sent: Friday, July 16, 2010 8:53 PM
Subject: RE: [delphi-br] Abrir aquivo txt no notepad
O NOTEPAD não tem opção que permita, a partir da sua chamada via linha de
comando, selecionar a fonte a ser usada para edição. Sugiro que busque qual a
chave no registro do Windows que armazena a fonte usada pelo Notepad e altere-a
antes de chamar o Notepad para a fonte desejada.
Boa sorte.
Sds.
[As partes desta mensagem que não continham texto foram removidas]
