1. Accueil
  2. Delphi / Pascal
  3. Sources Delphi / Pascal
  4. Sources Fichier / Disque
  5. Programme pour creer un autorun de cd-rom avec icone et label

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

Télécharger le projet
Commenter

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é.
Télécharger le projet

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;
S'inscrire maintenant

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.

Du même auteur (cs_kamalz)