PROGRAMME POUR CREER UN AUTORUN DE CD-ROM AVEC ICONE ET LABEL
f0xi
Messages postés4205Date d'inscriptionsamedi 16 octobre 2004StatutModérateurDernière intervention12 mars 2022
-
16 avril 2006 à 06:50
cs_kamalz
Messages postés26Date d'inscriptionsamedi 15 octobre 2005StatutMembreDernière intervention27 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.
cs_kamalz
Messages postés26Date d'inscriptionsamedi 15 octobre 2005StatutMembreDernière intervention27 juillet 2006 19 mai 2006 à 16:39
demande quelques améliorations.
Je l'ai refait en csharp si vous voulez le voir dans csharpfr.com
f0xi
Messages postés4205Date d'inscriptionsamedi 16 octobre 2004StatutModérateurDernière intervention12 mars 202235 16 avril 2006 à 06:55
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és4205Date d'inscriptionsamedi 16 octobre 2004StatutModérateurDernière intervention12 mars 202235 16 avril 2006 à 06:50
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;
19 mai 2006 à 16:39
Je l'ai refait en csharp si vous voulez le voir dans csharpfr.com
16 avril 2006 à 06:55
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;
16 avril 2006 à 06:50
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;