امتیاز موضوع:
  • 25 رای - 2.56 میانگین
  • 1
  • 2
  • 3
  • 4
  • 5
دانلود سورس تغییر عکس پس زمینه ویندوز به زبان دلفی
نویسنده پیام
hpnz آفلاین
کاربر تازه وارد
*

ارسال‌ها: 2
تاریخ عضویت: Mar 2013
اعتبار: 0
.وضعیت من: هیچکدام
ارسال: #1
دانلود سورس تغییر عکس پس زمینه ویندوز به زبان دلفی
باسلام خدمت دوستان عزیزم _ آرزو میکنم موفق و سربلند باشید ...

من سورس تغییر عکس پس زمینه ویندوز به زبان دلفی رو میخام برای پروژه پایانی کارشناسی میخام فقط به زبان دلفی باشه خیلی سپاسگزار میشم لینک دانلودش رو برام بزارید.
با گرفتن عکس از مسیر داریور ها اون عکس رو تو یه پیکچر باکس نشون بده و با انتخاب نوع عکس (Stretch،Tile،Center)اون رو ثت بکنه رو صفحه پس زمینه خیلی سپاسگزار میشم. اگه به صورت تصادفی هم عکس ها رو عوض بکنه خیلی سپاسگزار میشم. با سپاس از سایت خیلی خیلی مفید شما.
04-12-2013، 09:39 AM
ارسال‌ها پاسخ
hpnz آفلاین
کاربر تازه وارد
*

ارسال‌ها: 2
تاریخ عضویت: Mar 2013
اعتبار: 0
.وضعیت من: هیچکدام
ارسال: #2
RE: دانلود سورس تغییر عکس پس زمینه ویندوز به زبان دلفی
کسی نیست ما رو کمک کنه - من یه همچین سورسی به زبان های دیگه دارم مثل C#.net و vb.net دارم اگه کسی بلده میتونه اون رو به زبان دلفی بنویسه یا برنامه هست که کد vb.net یا کدC#.net روبه دلفی تبدیل کنه لطفا کمکم کنید. ...
04-22-2013، 10:47 AM
ارسال‌ها پاسخ
Amin_Mansouri آفلاین
مدیر کل سایت
*

ارسال‌ها: 4,842
تاریخ عضویت: Apr 2011
اعتبار: 158
.وضعیت من: Artistic
ارسال: #3
RE: دانلود سورس تغییر عکس پس زمینه ویندوز به زبان دلفی
 


کد:
// 1.Way:

uses
  Registry;

procedure SetWallpaper(sWallPaperBMPPath: string; bTile: Boolean);
var
  reg: TRegIniFile;
begin
  reg := TRegIniFile.Create('Control Panel\Desktop');
  try
    with reg do
    begin
      WriteString('', 'Wallpaper', sWallPaperBMPPath);
      WriteString('', 'TileWallpaper', IntToStr(Ord(bTile)));
    end;
  finally
    reg.Free;
  end;
  SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, nil, SPIF_SENDWININICHANGE);
end;

// 2. Way:

procedure TForm1.Button1Click(Sender: TObject);
var
  sWallPaperBMPPath: string;
begin
  sWallPaperBMPPath := 'C:\[WinDIR]\wall.bmp';
  if not SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, Pointer(sWallPaperBMPPath),
    SPIF_SENDWININICHANGE) then
    ShowMessage('Succesful.')
  else
    ShowMessage('Failed!');
end;


// 3. Set the wallpaper for the Active Desktop.
{
  You may have noticed that using SystemParametersInfo to change the wallpaper
  when ActiveDesktop is turned on doesn't work. The reason is because you need
  to use the IActiveDesktop COM interface. Using SystemParametersInfo still works,
  but it doesn't update the wallpaper.
  Requires Internet Explorer 4.0 or later).
}



uses
  ShlObj, ComObj;


function ChangeWallpaper(aFile: String): Boolean;
const
  CLSID_ActiveDesktop: TGUID = '{75048700-EF1F-11D0-9888-006097DEACF9}';
var
  hObj: IUnknown;
  ADesktop: IActiveDesktop;
  str: string;
  wstr: PWideChar;
begin
  hObj     := CreateComObject(CLSID_ActiveDesktop);
  ADesktop := hObj as IActiveDesktop;
  wstr := AllocMem(MAX_PATH);
  try
    StringToWideChar(aFile, wstr, MAX_PATH);
    ADesktop.SetWallpaper(wstr, 0);
    ADesktop.ApplyChanges(AD_APPLY_ALL or AD_APPLY_FORCE);
  finally
    FreeMem(wstr);
  end;
end;
 واسه بقیه سورس کدها:
http://delphi-kb.blogspot.com/2011/01/ch...-code.html
گروه دور همی پارسی کدرز
https://t.me/joinchat/GxVRww3ykLynHFsdCvb7eg
04-22-2013، 07:46 PM
وب‌سایت ارسال‌ها پاسخ


موضوعات مشابه ...
موضوع نویسنده پاسخ بازدید آخرین ارسال
  دلفی و تلگرام h_mohamadi 2 1,703 04-24-2017، 12:14 AM
آخرین ارسال: shilanaseri
  رسم نمودار در اکسل از طریق دلفی Saeed7007 1 3,209 08-14-2014، 06:11 PM
آخرین ارسال: Amin_Mansouri
  سورس کد بدست اوردن اطلاعات هارد دیسک (دلفی) Amin_Mansouri 1 6,179 07-30-2014، 05:45 PM
آخرین ارسال: dehqan_mehdi
  ۳۵۰ سورس کد دلفی (دلفی رو از ابتدا تا حرفه ای شدن یاد بگیرید) Amin_Mansouri 11 25,792 01-31-2014، 04:27 PM
آخرین ارسال: Amin_Mansouri
  بارگذاری و یا نمایش تصویر فرمت jpg (دلفی) Amin_Mansouri 2 8,083 08-23-2013، 10:06 PM
آخرین ارسال: mo_coders
  بدست اوردن لیست درایورهای موجود بر روی سیستم توسط API (دلفی) Amin_Mansouri 0 3,153 08-17-2013، 09:56 AM
آخرین ارسال: Amin_Mansouri
  دانلود سورس کد استفاده از نقشه گوگل در دلفی Amin_Mansouri 0 4,969 08-17-2013، 09:44 AM
آخرین ارسال: Amin_Mansouri
  سورس کد شناسایی مرورگرهای نصب شده بر روی سیستم عامل (دلفی) Amin_Mansouri 0 3,353 08-17-2013، 09:35 AM
آخرین ارسال: Amin_Mansouri
  سورس کد بازی بیلیارد به زبان دلفی Amin_Mansouri 0 7,313 06-16-2013، 08:36 PM
آخرین ارسال: Amin_Mansouri
  تب سیستم در دلفی Amir AMS 0 3,248 06-11-2013، 08:21 PM
آخرین ارسال: Amir AMS

پرش به انجمن:


کاربران در حال بازدید این موضوع: 1 مهمان

تماس با ما | ParsiCoders (Persian Team) For Programming ,Security,Cracking,Network,Pars Civilization,Medical,Science,Entertaining | بازگشت به بالا | | حالت آرشیو | پیوند سایتی RSS
This forum uses Lukasz Tkacz MyBB addons.