Mega Code Archive
Exe içine dosya gömme [anlatim]
<![CDATA[
VictiMHunteR.... victim_hunter@yahoo.com
Ben bunu çok aradım kısa bir zaman önce forumlarda felan iyi anlatılamamıştı.
İnşallah ben anlattıktan sonra kaparsınız..Aslında ingilizce anlatan bir site var
ama herkesin ingilizcesi iyi değil..Yani öğrenin ingilizce..En acemi adamın bile
anlayacağı biçimde anlattım.Bilenlere zaten lafımız yok.Yakında manyak programlarla
giriyom ortama
Başlıyoruz öncelikle açıklayacaklarım .wav , .avi ve .mp3 dosyaları nasıl gömülür.
Wave(.wav) Dosyası Nasıl Gömülür Çalıştırılır...
Bir .wav dosyası alalım.Adı muslum.wav olsun(Şuan Müslüm babayı dinliyom).Bu dosyayı
C:'ye atalım.Gene C:'de bir text dosyası oluşturalım.Ve içine şunları girelim.
muslum WAVE "c:\muslum.wav" Bunları yazdıktan sonra dosyayı muslum.rc
olarak kaydedelim.Şimdi C:'de muslum.wav(Müzik dosyamız) ve muslum.rc dosyamız var.
Sonra Başlat - programlar - Donatılar - Ms-dos komut istemini açalım.
C:/Windows yazacaktır orda.Onun yanına (cd..) parantez içindekini yazın enter'a basın
Yani şöle bişey olcak c:/windows>cd.. tamam.Şimdi c: yazcak sadece.Şimdi oraya
(brcc32 muslum.rc) parantez içindekini yazcaz.Oda şöle bişey olcak
c:/>brcc32 muslum.rc enter a bastığımız zaman c:'de muslum.res dosyası oluşmuş olacak
Bu 3 dosyayı alıp ekleyeceğimiz programın olduğu klasore atın.Ve kodunuzda şöle biyer var
{$R *.DFM} Bunun yanına {$R muslum.RES} bunu ekleyin..implemention un altında
Şöle olcak {$R *.DFM} {$R muslum.RES} oke mi? Şimdi gelelim nasıl çalıştıracağımıza
Formda bir button olsun buna basınca çalsın şarkımız..
uses kısmına mmsystem eklemeyi unutmayın!!!!!!!!
procedure TForm1.Button1Click(Sender: TObject);
var
hFind, hRes: THandle;
Song: PChar;
begin
hFind:=FindResource(HInstance, 'msulum', '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;
hepsi bu kadar......
Avi(.avi) Nasıl Gömülür Çalıştırılır....
Yukarda nasıl .rc dosyası yaratacağınızı anlattım Bundada .rc dosyasının içine
FİLM AVI film.avi yazın..(Benim avi'min ismi film di siz değiştirebilirsiniz.)
Gene film.res dosyamız oluştuktan sonra programı yaptığınız klasore atın.
açın delphiyle gene kodunuzu {$R film.RES} bunu eklemeyi unutmayın..
nasıl çalıştıracanız
procedure TForm1.FormCreate(Sender: TObject);
begin
with Animate1 do begin
ResName := 'film';
ResHandle := hInstance;
Active := TRUE;
end;
end;
hepsi bu kadar.......
Mp3(.mp3) Nasıl Gömülür Çalıştırılır.....
Gene .rc yi oluşturun içine şunları yazın senbaskasin RCDATA senbaskasin.mp3
Ms-dosta yukardaki gibi senbaskasin.res dosyasını oluşturun.klasore atın.
gene kodunuza {$R senbaskasin.RES} eklemeyi unnutmayın.
Nasıl çalıştırırız...
procedure TForm1.Button1Click(Sender: TObject);
var
rStream: TResourceStream;
fStream: TFileStream;
fname: string;
begin
fname:=ExtractFileDir(Paramstr(0))+'senbaskasin.mp3';
rStream := TResourceStream.Create
(hInstance, 'senbaskasin', RT_RCDATA);
try
fStream := TFileStream.Create(fname, fmCreate);
try
fStream.CopyFrom(rStream, 0);
finally
fStream.Free;
end;
finally
rStream.Free;
end;
MediaPlayer1.Close;
MediaPlayer1.FileName:=fname;
MediaPlayer1.Open;
end;
--------------------------------------------------------------------------------
]]>