تغییر فونت hint دلفی

type
  TMyHintWindow = class(THintWindow)
    constructor Create(AOwner: TComponent); override;
  end;


implementation

constructor TMyHintWindow.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  with Canvas.Font do
  begin
    Name := 'Arial';
    Size := Size + 5;
    Style := [fsBold];
  end;
end;

procedure TForm2.FormCreate(Sender: TObject);
begin
  HintWindowClass := TMyHintWindow;
  Application.ShowHint := False;
  Application.ShowHint := True;
end;

تغییر Volume ویندوز

تغییر Volume ویندوز type     tvolRange=1..15; Procedure ChangeVolume(value:tvolRange);var     Count, i: integer; begin     Count := waveOutGetNumDevs;     for i := 0 to Count do     begin         waveOutSetVolume(i,longint(value*4369)*65536+longint(value*4369));     end; end;