delphinewbie
Programmer
I put the following code for move the mouse cursor(loop),
procedure TForm1.FormCreate(Sender: TObject);
var i :integer;
begin
i:=0;
while i =0 do
begin
if i=0 then
begin
Mouse.CursorPos := Point(200,40);
sleep(5000);
i :=1;
end;
if i = 1 then
begin
Mouse.CursorPos := Point(200,150);
sleep(5000);
i :=0;
end;
end;
end;
But the problem is that when everytime i run the program, i need to restart my pc again
in order to quit or exit the program. WHat should i do then if i want the cursor no more
moving after i close the application .. ? thx in advance for ya help ..
procedure TForm1.FormCreate(Sender: TObject);
var i :integer;
begin
i:=0;
while i =0 do
begin
if i=0 then
begin
Mouse.CursorPos := Point(200,40);
sleep(5000);
i :=1;
end;
if i = 1 then
begin
Mouse.CursorPos := Point(200,150);
sleep(5000);
i :=0;
end;
end;
end;
But the problem is that when everytime i run the program, i need to restart my pc again
in order to quit or exit the program. WHat should i do then if i want the cursor no more
moving after i close the application .. ? thx in advance for ya help ..