Blanc
Bleu
Jaune
Noir
Rouge
Vert

Uses IniFiles;

procedure TForm2.FormCreate(Sender: TObject);
Var FichierIni : TIniFile;
begin
//Lecture des paramètres dans le fichier ini
FichierIni:=TIniFile.Create('Delphipage.ini');
Edit1.Text:=FichierIni.ReadString('Parametres','Texte','Delphipage');
ComboBox1.Text:=FichierIni.ReadString('Parametres','Couleur','Rouge');
FichierIni.Free;
end;

procedure TForm2.Button1Click(Sender: TObject);
Var FichierIni : TIniFile;
begin
//Enregistre les paramètres dans le fichier ini
FichierIni:=TIniFile.Create('Delphipage.ini');
FichierIni.WriteString('Parametres','Texte',Edit1.Text);
FichierIni.WriteString('Parametres','Couleur',ComboBox1.Text);
FichierIni.Free;
Close; //Ferme la form
end;

procedure TForm2.Button2Click(Sender: TObject);
begin
Close;
end;

Uses IniFiles;

public
{ Déclarations publiques }
Point :TPoint;
end;

procedure TForm1.FormCreate(Sender: TObject);
Var FichierIni : TIniFile;
St : string;
begin
//Lecture des paramètres dans le fichier ini
FichierIni:=TIniFile.Create('Delphipage.ini');
Label1.Caption:=FichierIni.ReadString('Parametres','Texte','Delphipage');
St:=FichierIni.ReadString('Parametres','Couleur','Rouge');
if St='Blanc' then Label1.Font.Color:=clWhite;
if St='Bleu' then Label1.Font.Color:=clBlue;
if St='Jaune' then Label1.Font.Color:=clYellow;
if St='Noir' then Label1.Font.Color:=clBlack;
if St='Rouge' then Label1.Font.Color:=clRed;
if St='Vert' then Label1.Font.Color:=clLime;
FichierIni.Free;
GetCursorPos(Point); //Recupere les coordonnées X et Y de la souris
ShowCursor(False); //Fait disparaitre le curseur de souris
end;

procedure TForm1.Timer1Timer(Sender: TObject);
Var i1,i2 : Integer;
begin
Randomize; //Initailise la fonction Random
i1:=Random(Screen.Width-Label1.Width); //0 <= X < Screen.Width-Label1.Width
i2:=Random(Screen.Height-Label1.Height); //0 <= X < Screen.Height-Label1.Height
Label1.Left:=i1; //Positionne le label selon i1 et i2
Label1.Top:=i2;
end;

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
ShowCursor(True); //Affiche le curseur de souris
DestroyWindowHandle; //Supprime la fenêtre
Application.Terminate; //Termine l'application
end;

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
ShowCursor(True);
DestroyWindowHandle;
Application.Terminate;
end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
//Si la souris bouge suffisamment alors on quitte
//En X
if (X<Point.X-10) or (X>Point.X+10) then
begin
ShowCursor(True);
DestroyWindowHandle;
Application.Terminate;
end;
//En Y
if (Y<Point.Y-10) or (Y>Point.Y+10) then
begin
ShowCursor(True);
DestroyWindowHandle;
Application.Terminate;
end;
end;

program Project1;

uses
Forms,
Windows,
Unit1 in 'Unit1.pas' {Form1},
Unit2 in 'Unit2.pas' {Form2};

{$E .scr}

{$R *.RES}

begin
if Copy(ParamStr(1),2,1)='c' then
begin
Application.Initialize;
Application.CreateForm(TForm2, Form2);
Application.Run;
end;
if Copy(ParamStr(1),2,1)='s' then
begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;
end;
end.