1:
2:
3:

implementation
{$R *.dfm}
{$R Namer der Datei.RES}                    

1:
2:
3:
4:
5:
6:
7:
8:

procedure TForm1.Button1Click(Sender: TObject);
begin
with Animate1 do begin
ResName := 'ResName1';
ResHandle := hInstance;
Active := TRUE;
end;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

uses mmsystem;
...
procedure TForm1.Button1Click(Sender: TObject);
var
hFind, hRes: THandle;
Song: PChar;
begin
hFind:=FindResource(HInstance, 'ResName2', 'WAVE');
if hFind<>0 then begin
hRes:=LoadResource(HInstance, hFind);
if hRes<>0 then begin
Song:=LockResource(hRes);
if Assigned(Song) then
SndPlaySound(Song, snd_ASync or snd_Memory);
UnlockResource(hRes);
end;
FreeResource(hFind);
end;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:

procedure TForm1.Button1Click(Sender: TObject);
var
rStream: TResourceStream;
fStream: TFileStream;
fname: string;
begin
{this part extracts the mp3 from exe}
fname:=ExtractFileDir(Paramstr(0))+'Intro.mp3';
rStream := TResourceStream.Create
(hInstance, 'Intro', RT_RCDATA);
try
fStream := TFileStream.Create(fname, fmCreate);
try
fStream.CopyFrom(rStream, 0);
finally
fStream.Free;
end;
finally
rStream.Free;
end;
{this part plays the mp3}
MediaPlayer1.Close;
MediaPlayer1.FileName:=fname;
MediaPlayer1.Open;
end;                    

1:
2:
3:
4:
5:

const crMyCursor = 1;
begin
Screen.Cursors[crMyCursor] := LoadCursor(hInstance,PChar ('ResName vom Cursor'));
Form1.Cursor := crMyCursor;
end;                    

1:
2:
3:
4:
5:
6:

{$R Untitled1.res}

procedure test(var image : TImage; HInstance : cardinal); stdcall;
begin
image.Picture.Bitmap.LoadFromResourceName(HInstance,'Bitmap1');
end;