Van olyan program ami parancssorral indul s a parancssorban benne vagy egy hangfile, pl. Mp3 lejátszása, képernyő kezelés nélkül? ilyesmire gondolok pl. c://xxx. Exe (zene. Mp3)

Tessék Delphi-ben :)

program console_mp3;

{$APPTYPE CONSOLE}

uses SysUtils, MMSystem;

var FDeviceID : cardinal;

music : string;

procedure OpenDevice;

var

OpenParm: TMCI_Open_Parms;

Error: cardinal;

begin

FillChar(OpenParm, SizeOf(TMCI_Open_Parms), 0);

OpenParm.dwCallback := 0;

OpenParm.lpstrDeviceType := '';

OpenParm.lpstrElementName := PChar(music);

OpenParm.dwCallback := 0;

Error := mciSendCommand( 0, mci_Open, MCI_OPEN_ELEMENT, Longint(@OpenParm));

if Error <> 0 then

begin

WriteLn( 'Az eszkozt nem sikerult megnyitni!');

ReadLn;

Halt(1);

end

else

FDeviceID := OpenParm.wDeviceID;

end;

procedure CloseDevice;

var

GenParm: TMCI_Generic_Parms;

Error: cardinal;

begin

if FDeviceID <> 0 then

begin

GenParm.dwCallback := 0;

Error := mciSendCommand(FDeviceID, mci_Close, 0, Longint(@GenParm));

if Error = 0 then FDeviceID := 0;

end;

end;

procedure PlayMP3;

var

PlayParm: TMCI_Play_Parms;

begin

WriteLn( 'Lejatszas alatt: ', music, ' Enter-re leall');

mciSendCommand(FDeviceID, mci_Play, 0, Longint(@PlayParm));

end;

procedure StopMP3;

var

GenParm: TMCI_Generic_Parms;

begin

mciSendCommand(FDeviceID, mci_Stop, 0, Longint(@GenParm));

end;

begin

music := ParamStr(1);

OpenDevice;

PlayMp3;

ReadLn;

StopMp3;

CloseDevice;

end.

Lefordítva: [link]

Lehet rosszul fogalmaztam. A Windows képes lejátszani mp3-at, de meg kell neki mondani, hogy játssza le. Mivel te nem tudsz windows-ul a kis programocska tolmácsol :)

De mutatok másikat is, ezt mentsd el vbs kiterjesztéssel, pl: mp3_player.vbs

Dim oPlayer

Set args = Wscript.Arguments

Set oPlayer = CreateObject("WMPlayer.OCX")

oPlayer.URL = args(0)

oPlayer.controls.play

While oPlayer.playState <> 1

WScript.Sleep 100

Wend

oPlayer.close

Majdnem ugyanúgy működik mint az előző program.

A vbs-hez elég egy sima Jegyzettömb is, bemásolod a kódot és elmented vbs kiterjesztéssel. A VBS fájlokat alapból kezeli a Win azokat nem kell lefordítani. A Delphi-t már fordítani kell, igazából ez egy programom kiragadott része, csak azért fut cmd ablakban, hogy bemutassam a használatát. Természetesen elrejthető, de ebbe inkább hadd ne menjek már bele - ha már már programozni nem tudsz -

Használd nyugodt szívvel a vbs-t, az nem dob fel ablakot, sőt javaslom a a VBS tanulmányozását is, mivel Windows alatt kismillió dologra használható.