Utilisez les ressources dans votre application Delphi

Date de mise a jour : 05/04/2005

Par DelphiCool ()
 

1. Utilisation des ressources

Qu'est ce qu'un fichier ressource ?
C'est un fichier qui contient votre icône, votre numéro de version et pas mal d'autres choses.

Comment créer ce fichier ressource ?
Comme ce tutoriel parle de l'utilisation d'un fichier de ressources, je vous conseille d'utiliser mon programme Res_HiA.
Vous pouvez aussi consulter ce fichier source.

Télécharger l'exemple qui vous aideras à comprendre :

Exécutable Demo 804 Ko
Source de l'exécutable environ 1 Mo

2. introduction

var
 Res : TResourceStream ;

implementation 
 {$R La_Ressource_en_Plus.res}

3. Une image BMP

Capture avec Res Hacker

 image1.Picture.Bitmap.LoadFromResourceName(hinstance, 'MONBMP');

4. Une image JPEG

Capture avec Res Hacker

var jpg: TjpegImage;

begin
 jpg := TJPEGimage.Create;
 Res := TResourceStream.Create(hinstance, 'MONJPEG', RT_RCDATA);
 Jpg.LoadFromStream(Res);
 Image1.Picture.Bitmap.Assign(jpg);
 Res.Free;
 jpg.Free;
End;

5. Une image GIF

Capture avec Res Hacker

var GIF : TGIFImage;
begin
 include(GIFImageDefaultDrawOptions, goDirectDraw); 
 Res := TResourceStream.Create(hinstance, 'MONGIF', 'GIF');
 GIF := TGIFImage.Create;
 GIF.LoadFromStream(Res);
 Image1.Picture.Assign(GIF);
 GIF.Free;
 Res.Free;
 { Avant de fermer le TForm, ne pas oublier de libérer votre TImage
 Car le Gif a été créé en DirectDraw
 
 Image1.Picture.Graphic := nil;
 }
End;

6. Un fichier texte

Capture avec Res Hacker

 Res := TResourceStream.Create(0,'MONTXT','TEXT');
 MemoTexte.Lines.LoadFromStream(Res); 
 Res.Free;

7. Une icône

Capture avec Res Hacker

var
 Icone: TIcon;

begin
 Icone := TIcon.Create;
 Icone.Handle := LoadIcon(HInstance, 'MONICON');
 Icon := Icone;
 Image1.Picture.Icon := Icon;
 Icone.free;
End;

8. Un son Wav

Capture avec Res Hacker

var
 Hres: THandle;
 Pres: PChar;

begin
 Hres := FindResource(0, pchar('MONWAV2'), 'WAV'); // Recherche de la Ressource
 Hres := LoadResource(0, Hres); // On charge la Ressource
 Pres := LockResource(Hres);
 sndPlaySound(Pres, SND_MEMORY); // On joue le WAV 
 UnLockResource(Hres);
 FreeResource(Hres);
End;

9. Un son MP3

Capture avec Res Hacker

 Res := TResourceStream.Create(0,'MONMP3','MP3');
 Res.SaveToFile(ExtractFilePath(Application.ExeName) + 'mon.mp3');
 Res.Free; 
 mp3Joue.Close; // mp3joue est mon TMediaPlayer
 mp3Joue.FileName := 'mon.mp3';
 mp3Joue.Open;
 mp3Joue.Play;

 // Sur l'événement OnClose du TForm, mettre mp3Joue.Close;

10. Un fichier exécutable

Capture avec Res Hacker

var path : string;

begin
 path := ExtractFilePath(Application.ExeName); // Je recupère le chemin de mon exe 
 Res := TResourceStream.Create(0,'MONEXE','EXEFILE');
 Res.SaveToFile(path + 'Monexe.exe');#339999
 Res.Free;
 WinExec(Pchar(path + 'Monexe.exe'),sw_normal); // On exécute l'exe 
End;

11. Un curseur de souris

Capture avec Res Hacker

 Screen.Cursors[1] := LoadCursor(HInstance, 'MONCURSEUR'); // On extrait le Curseur du Ressource
 button12.Cursor := 1; // On lui dit où le curseur doit apparaître
 self.Cursor := 1; // On lui dit où le curseur doit apparaître

12. Un texte d'une StringTable

Capture avec Res Hacker

var montexte: array[0..255] of Char; 

begin
 LoadString(hInstance, 0, montexte, 255); // 0 est l'index de ma ligne de texte
 MemoTexte.Lines.Text := montexte;
End;

13. Pour terminer