|
linux�뿉�꽌 �봽濡쒓렇�옩�쓣 �븯�떎蹂대땲 �뿤硫붽린 �씪�뫀 �씠�꽕�슂
�샊�떆 ���泥섎읆 �뿤硫붾뒗遺꾩씠 �븞�깮湲곕룄濡� 由щ늼�뒪�뿉�꽌 媛꾨떒�엳 wav�뙆�씪�쓣 �뵆�젅�씠 �븯�뒗 funtion�쓣
怨듭쑀 �빀�땲�떎 ^^
�옄猷뚯텧泥� : http://forum.lazarus.freepascal.org/index.php?topic=5215.0
uses Process 異붽���븯�떆怨�
function PlaySoundLnx(fileName: String): Boolean; //wav sound play function
const
playerCmd = 'paplay'; // pulseaudio client
var
AProcess: TProcess;
begin
AProcess := TProcess.Create(nil);
with Aprocess do begin
CommandLine := FindDefaultExecutablePath(playerCmd) +
' ' + filename;
// Options := Options + [poWaitOnExit]; //�씠 �샃�뀡��� ASync , Sync �꽑�깮
try
try
Execute;
except
on E: Exception do
ShowMessage(E.ClassName +
' error raised, with message : ' + E.Message);
end;
finally
Free;
end;
end;
end;
procedure TMain_Form.Button1Click(Sender: TObject);
var
AppDir: String;
begin
AppDir := ExtractFilePath(Application.ExeName);
PlaySoundLnx(AppDir + 'audio/2.wav');
end;
|
lazarus linux�뿉�꽌 wav�뙆�씪 �뵆�젅�씠�븯湲�
