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.
Qu'est-ce qui est anormal dans ce code qui génère l'erreur à la fermeture ?
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;
merci.
Partager