muzyka w lazarus.txt

wykorzystuje MMSystem; 

procedure TForm1.Button1Click (Sender: TObject); 
rozpocz¹æ 
sndPlaySound ("C: \ dog.wav" SND_NODEFAULT Albo SND_ASYNC); 
end; 

 Teraz mój problem ³aduje plik LRS, napisa³em ten kod ale nie dzia³a. 

wykorzystuje MMSystem; 

inicjalizacji 
{$ I unit1.lrs} 
{$ I sounds.lrs} 

procedure TForm1.Button1Click (Sender: TObject); 

rozpocz¹æ 
PlaySound ("pies", hInstance, SND_RESOURCE lub SND_SYNC); 
end; 

 Jeszcze raz dziêkujê.
 
 
 
 
 Za³aduj bitmapê z biblioteki DLL zasobów - zasobów - Tips & Tricks - Greatis Strony Delphi
Przede wszystkim, nale¿y za³adowaæ biblioteki z funkcj¹ LoadLibrary. 
I do ³adowania bitmapy z tego korzystania z biblioteki funkcji 
LoadFromResourceName. 
Istnieje "BITMAP3" sekcja który zawartoœæ plik bitmapy w pliku zasobów.

 procedure TForm1.Button1Click(Sender: TObject); 
 var 
 LibHandle: THandle; 
 Bitmap: Tbitmap; 
 begin 
 LibHandle:=Loadlibrary('MyDLL.dll'); 
 try if LibHandle<&gt0 then 
 begin 
 Bitmap:=TBitmap.Create; 
 Bitmap.LoadFromResourceName(LibHandle,'BITMAP3'); 
 Image1.Canvas.Draw(0,0,Bitmap); 
 end; 
 finally 
 Bitmap.Free; 
 end; 
 end;