PROGRAMME POUR CREER UN AUTORUN DE CD-ROM AVEC ICONE ET LABEL

Messages postés
4200
Date d'inscription
samedi 16 octobre 2004
Statut
Modérateur
Dernière intervention
2 janvier 2019
- - Dernière réponse : cs_kamalz
Messages postés
26
Date d'inscription
samedi 15 octobre 2005
Statut
Membre
Dernière intervention
27 juillet 2006
- 19 mai 2006 à 16:39
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/37045-programme-pour-creer-un-autorun-de-cd-rom-avec-icone-et-label

cs_kamalz
Messages postés
26
Date d'inscription
samedi 15 octobre 2005
Statut
Membre
Dernière intervention
27 juillet 2006
-
demande quelques améliorations.
Je l'ai refait en csharp si vous voulez le voir dans csharpfr.com
f0xi
Messages postés
4200
Date d'inscription
samedi 16 octobre 2004
Statut
Modérateur
Dernière intervention
2 janvier 2019
26 -
procedure TForm2.Button1Click(Sender: TObject);
begin
form1.Memo1.Lines.SaveToFile(edit1.Text);
if FileExists(Edit1.Text) then
ShowMessage('Fichier sauvegardé.')
else
ShowMessage('Erreur de sauvegarde, verifier la destination.');
form2.Close;
end;

procedure TForm2.Dir1Change(Sender: TObject);
begin
edit1.Text:=dir1.Directory+'\autorun.inf';
end;
f0xi
Messages postés
4200
Date d'inscription
samedi 16 octobre 2004
Statut
Modérateur
Dernière intervention
2 janvier 2019
26 -
procedure TForm1.Button1Click(Sender: TObject);
begin
if open1.Execute then
label6.Caption := extractfilename(open1.FileName);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
if open2.Execute then
label7.Caption := extractfilename(open2.FileName);
end;



procedure TForm1.Button5Click(Sender: TObject);
begin
form1.Close;
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
with Memo1.Lines do begin
Clear;
add('[autorun]');
add('Open='+label6.Caption);
add('Icon='+label7.Caption);
add('Label='+Edit1.Text);
end;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
with Memo1.Lines do begin
clear;
add('[autorun]');
add('Open='+label6.Caption);
add('Icon='+label7.Caption);
add('Label='+Edit1.Text);
end;
form2.Show;
end;

procedure TForm1.Button6Click(Sender: TObject);
begin
memo1.clear;
end;

procedure TForm1.Nouveau1Click(Sender: TObject);
begin
label6.caption:='';
label7.Caption:='';
memo1.clear;
edit1.Text:='';
end;

procedure TForm1.A1Click(Sender: TObject);
begin
aboutbox.Show;
end;

procedure TForm1.Blanc1Click(Sender: TObject);
begin
form1.Color:=clwhite;
form2.Color:=clwhite;
aboutbox.Color:=clwhite;
aboutbox.Panel1.Color:=clwhite;
end;

procedure TForm1.Gris1Click(Sender: TObject);
begin
form1.Color:=clsilver;
form2.Color:=clsilver;
aboutbox.Color:=clsilver;
aboutbox.Panel1.Color:=clsilver;
end;

procedure TForm1.Jaune1Click(Sender: TObject);
begin
form1.Color:=clyellow;
form2.Color:=clyellow;
aboutbox.Color:=clyellow;
aboutbox.Panel1.Color:=clyellow;
end;

procedure TForm1.Bleuciel1Click(Sender: TObject);
begin
form1.Color:=clskyblue;
form2.Color:=clskyblue;
aboutbox.Color:=clskyblue;
aboutbox.Panel1.Color:=clskyblue;
end;

procedure TForm1.Quitter1Click(Sender: TObject);
begin
form1.Close;
end;