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

Soyez le premier à donner votre avis sur cette source.

Vue 18 012 fois - Téléchargée 1 811 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
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
demande quelques améliorations.
Je l'ai refait en csharp si vous voulez le voir dans csharpfr.com
f0xi
Messages postés
4205
Date d'inscription
samedi 16 octobre 2004
Statut
Modérateur
Dernière intervention
12 mars 2022
38
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és
4205
Date d'inscription
samedi 16 octobre 2004
Statut
Modérateur
Dernière intervention
12 mars 2022
38
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;

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.