Как добавить свой текст к часам на панели задач?
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; |
Не забудьте перезагрузить компьютер.