كيف يمكن تغيير صوت البداية؟

يا عالم ما فيه ولا حتى هنت (Hint)؟؟؟؟؟ :o

?؟

غريب سؤالك هذا يا عم Delphi User :o .

أظن انه لتغيير اأصوات نظام التشغيل عموما يكفي أن تفتح :

Start>parameters>ControlPanel>Sound&Multimedia.

ومن هذه النافذة يمكنك تغيير كل هذه الأصوات B) .

ستقول لي بل أريد تغييرها برمجيا !!! :angry:

طيب لا تقلق نشوفو ليك شي حل :) .

Windows تسجل كل هذه الأصوات داخل Registry .يعني يكفي أن تعرف Path لكل صوت ثم تبدل قيمة Key المناسب له بالصوت الذي تريد على أساس أن يكون من نوع Microsoft ADPCM Wave file , ببساطة يكون ملف من نوع wav .

جودة الصوت من 8 بات , 22khz و قناة وحيدة MONO , جد كافية للملفات الصوت للنظام.

هذا هو مكان المخزنة فيه كل الأصوات بالرجيستري:

[HKEY_CURRENT_USER\AppEvents\Schemes\Apps\.Default\]

يعني لو أردت تغيير صوت البداية ستلقاه في :

[HKEY_CURRENT_USER\AppEvents\Schemes\Apps\.Default\SystemStart\.Current]

ستجد فيها السلسلة المحرفية التي تدل على الملف المستعمل:

Windows Logon Sound.wav.

هذه الأصوات الأخرى إن كنت مهتما بها أيضا:

[HKEY_CURRENT_USER\AppEvents\Schemes\Apps\.Default\Close\.Current]
[HKEY_CURRENT_USER\AppEvents\Schemes\Apps\.Default\MailBeep\.Current]
[HKEY_CURRENT_USER\AppEvents\Schemes\Apps\.Default\Maximize\.Current]
[HKEY_CURRENT_USER\AppEvents\Schemes\Apps\.Default\MenuPopup\.Current]
[HKEY_CURRENT_USER\AppEvents\Schemes\Apps\.Default\Minimize\.Current]
[HKEY_CURRENT_USER\AppEvents\Schemes\Apps\.Default\Open\.Current]
[HKEY_CURRENT_USER\AppEvents\Schemes\Apps\.Default\RestoreDown\.Current]
[HKEY_CURRENT_USER\AppEvents\Schemes\Apps\.Default\RestoreUp\.Current]
[HKEY_CURRENT_USER\AppEvents\Schemes\Apps\.Default\RingIn\.Current]
[HKEY_CURRENT_USER\AppEvents\Schemes\Apps\.Default\RingOut\.Current]
[HKEY_CURRENT_USER\AppEvents\Schemes\Apps\.Default\SystemAsterisk\.Current]
[HKEY_CURRENT_USER\AppEvents\Schemes\Apps\.Default\SystemExclamation\.Current]
[HKEY_CURRENT_USER\AppEvents\Schemes\Apps\.Default\SystemExit\.Current]
[HKEY_CURRENT_USER\AppEvents\Schemes\Apps\.Default\SystemQuestion\.Current]

(h)

هو ده النظام

شكرا يا iKossan ويجب جميعا ان ننتبه اننا مبرمجون يعنى عندما نسأل عن شئ يجب ان نعرف طريقة عمله بدون برمجة ومن ثم نبدأ برمجة ما نريد للتحكم فيه وشكرا مرة اخرى جوابك كافى سوف اجرب ثم ابلغك وشكرا لك ....

السلام عليكم

ما شاء الله عليكJuStNiCk :lol: .

هذا مثال يمكنك منه الإستماع لبعض هذه الأصوات ,و كذلك تغييرها في الريجيستري بملفات أخرى من اختيارك.

var
  StatusName:string;

procedure TForm1.SetSysWaveName(WaveName: string);
begin
  with TRegistry.Create do
  begin
    try
      //AppEvents\Schemes\Apps\.Default\SystemStart\.Current
      RootKey := HKEY_CURRENT_USER;
      OpenKey('AppEvents\Schemes\Apps\.Default\'
                +StatusName+'\.Current', True);
      WriteString('',WaveName); // the string '' is for default value
      CloseKey;
    finally
      Free;
    end;
  end;
end;

function TForm1.GetSysWaveName: string;
begin
  with TRegistry.Create do
  begin
    try
      RootKey := HKEY_CURRENT_USER;
      OpenKey('AppEvents\Schemes\Apps\.Default\'
                +StatusName+'\.Current', False);
      Result:=ReadString(''); // the string '' is for default value
      if Result='' then Result:='Not Wave file Assigned for this entry';
      CloseKey;
    finally
      Free;
    end;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
PlaySound(pChar(StatusName),0,SND_ASYNC);
end;

الملف المرفق يحتوي على نص الشيفرة الكاملة + اللف التطبيقي EXE.

(h)

Sound System.zip

:) شكرا