Delphi-Help

Главная Статьи Windows Как добавить свой текст к часам на панели задач?

Как добавить свой текст к часам на панели задач?

Оцените материал
(0 голосов)


Как добавить свой текст к часам на панели задач?

uses
  ..., Registry;

Добавить текст

procedure AddTextToClock( text: string );
var
  Reg: TRegistry;
begin
   Reg := TRegistry.Create;
   Reg.RootKey := HKEY_CURRENT_USER;
   Reg.OpenKey( 'Control panel\International', true );
   Reg.WriteString( 's1159', text );
   Reg.WriteString( 's2359', text );
   Reg.WriteString( 'sTimeFormat', 'HH:mm:ss tt' );
   Reg.Free;
end;

Удалить текст

procedure DeleteTextToClock;
var
  Reg: TRegistry;
begin
   Reg := TRegistry.Create;
   Reg.RootKey := HKEY_CURRENT_USER;
   Reg.OpenKey( 'Control panel\International', true );
   Reg.DeleteValue( 's1159' );
   Reg.DeleteValue( 's2359' );
   Reg.DeleteValue( 'sTimeFormat' );
   Reg.Free;
end;

Не забудьте перезагрузить компьютер.

Прочитано 4532 раз

Авторизация



Счетчики