Programme pour creer un autorun de cd-rom avec icone et label

Soyez le premier à donner votre avis sur cette source.

Vue 17 849 fois - Téléchargée 1 789 fois

Description

Bon c ma première participation dans delphifr.com, et je suis debutant dans ce language, mais grace à mon experience en vb j'ai pu réaliser ce programme d'autorun d'une belle qualité.

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

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
Messages postés
4202
Date d'inscription
samedi 16 octobre 2004
Statut
Modérateur
Dernière intervention
13 juin 2020
33
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;
Messages postés
4202
Date d'inscription
samedi 16 octobre 2004
Statut
Modérateur
Dernière intervention
13 juin 2020
33
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;

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.