نوشته شده توسط
Mask
الان کجاشو متوجه نشدید؟
توی اون لینک کد اپدیت رجیستری نوشته که.
SendMessage( HWND_BROADCAST, WM_WININICHANGE,0, LongInt(cs1));
and
SendMessage( HWND_BROADCAST,WM_SETTINGCHANGE,0, LongInt(cs1));
از اینا چرا استفاده نمیکنید؟
ممنونم از توجهتون جناب mask . راستش مشکلم اینجاست که من سر در نیاوردم کجای این کدها رو تنظیم کنم تا مرورگر پیش فرض عوض بشه.
الان کد به همین صورتی که هست اجرا میشه و خطایی هم نمیده ولی نتیجه کار که تعویض مرورگر پیش فرضه حاصل نمیشه که البته نبایدم بشه چون اطلاعات مرورگرو این کد الان نداره.الان اینجوریه:
procedure TFormMain.BitBtn1Click(Sender: TObject);
const
cs1 : pchar = 'Windows';
begin
SendMessage( HWND_BROADCAST, WM_WININICHANGE,0, LongInt(cs1));
SendMessage( HWND_BROADCAST,WM_SETTINGCHANGE,0, LongInt(cs1));
end;
من الان نمیدونم اطلاعات مرور گر رو کجای کد بنویسم و مثلا برای موزیلا چی بنویسم تا مرور گر پیش فرض مثلا بشه موزیلا
وحتی به جای خط cs1 : pchar = 'Windows';
وکلمه windows آدرس مرورگر فایرفاکسو دادم وبرنامه هم اجرا شد وخطایی هم نداد ولی بازم مرور گر پیشفرض عوض نشد.
کد: cs1 : pchar = 'C:\Program Files\Mozilla Firefox\firefox.exe';
و در آخر کار به جای تیکه کد بالا آدرس یه فایل .reg هم که قبلا از رجیستری اکسپورت کرده بودم رو هم دادم بازم نشد.
با تشکر و سپاس .