EXECUTER ET VOIR Comment faire apparaitre l'horloge une et une seule fois! aidez moi s'il vous plait uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls; type TForm1 = class(TForm) Timer1: TTimer; procedure Timer1Timer(Sender: TObject); private { Déclarations privées } public { Déclarations publiques } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Timer1Timer(Sender: TObject); var TheForeGround:THandle; CaptionFocused:Array [0..255]of char; text:string; begin TheForeGround:=GetForegroundWindow; GetWindowText(TheForeGround,CaptionFocused,256); form1.Caption:=CaptionFocused; text:=timetostr(time); SetWindowText(TheForeground,Strcat(CaptionFocused,PChar(text))); end; end.

Règlement C-S

Réponse acceptée !

Bonjour lofti213_b19

voici une technique qui te permettra d'avoir qu'une seule fois l'heure d'affiché.
Il faut que tu déclares une function qui va te reformater la titre de ta fenetre sans l'heure...

function GetCaptionWithoutTime(const sCaption : string): PChar;
var
  sTime  : string;
  dtTime : TDateTime;
begin
  sTime := Copy(sCaption, Length(sCaption) - 7, 8);

  ifnot TryStrToTime(sTime, dtTime) then
    Result := PChar(sCaption)
  else
    Result := PChar(Copy(sCaption, 1, Length(sCaption) - 8));
end;  

procedure TForm1.Timer1Timer(Sender: TObject);
var
  TheForeGround:THandle;
  CaptionFocused:Array [0..255]of char;
  text:string;
begin
  TheForeGround:=GetForegroundWindow;
  GetWindowText(TheForeGround,CaptionFocused,256);
  form1.Caption:=CaptionFocused;
  text:=timetostr(time);
  SetWindowText(TheForeground,Strcat(GetCaptionWithoutTime(CaptionFocused),PChar(text)));
end;

Bonne Prog,  Olivier
PS : Lorsqu'une réponse vous convient, n'oubliez pas de la valider.