Bonjour,
j'ai écrit une petite application qui clique périodiquement toutes les dix secondes dans un endroit donné de l'écran et je l'ai modifiée pour qu'elle se replace à l'ouverture à la place qu'elle était lorsqu'on l'a fermée la fois précédente.
Cela me parait simple et cela fonctionne sauf qu'à chaque fois que je ferme cela déclenche un runtime error at 00405288.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
var
  Form1: TForm1;
  X,Y: Integer;
  FichierIni: text;
implementation
 
{$R *.dfm}
 
 
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
    AssignFile(FichierIni,'AutoRobot.ini');
    rewrite(FichierIni);
    writeln(FichierIni,IntToStr(Top));
    writeln(FichierIni,IntToStr(Left));
   CloseFile(FichierIni);
end;
 
procedure TForm1.FormCreate(Sender: TObject);
Var Valeur: String;
begin
  if FileExists('AutoRobot.ini') then
  Begin
    AssignFile(FichierIni,'AutoRobot.ini');
    reset(FichierIni);
    readln(FichierIni,Valeur);
    Top:=StrToInt(valeur);
    readln(FichierIni,Valeur);
    left:=StrToInt(valeur);
    CloseFile(FichierIni);
  End;
 
end;
 
 
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  X:= Left-5;
  Y:=Top-5;
  CliquerGauche(X,Y);
end;
Qu'est-ce qui est anormal dans ce code qui génère l'erreur à la fermeture ?
merci.