Ağda masaüstü resmini değiştirme

[ozsal]

selamun aleykum kolay gelsin arkadaşlar.
ilk olarak forumlarda arama yaptığımı belirteyim.
ama istediğim sonuca ulaşamadım.
hem delphi de hem de delphiturk te yeniyim.
kendi çapımda birşeyler yapmaya çalışıorum. bir internet kafem var

müşteriler masa üstü resimlerini değiştiriyorlar. benim istediğim
bir programla atıyorum
button1 click yapınca
ıp adresi ağ için de 192.168.0.11 olan makinanın masa üstünü resmini benim belirlediğim bir resimle değiştirecek.
aynı olayı
button2click yapınca
192.168.0.12 de yapacak.
yol gösteren yardımcı olabilen herkese çok teşekkürler..
iyi çalışmalar

[poshet303]

Uzak bir bilgisayarın masaüstü resminin direk değiştirilebileceğinden şüpheliyim. Ancak çalıştığı bilgisayarın masaüstü resmini değiştiren bir program yazar bunu ilgili cihazların paylaşıma açık klasörüne (her cihazda aynı örneğin 192.168.0.*\AYARLAR) kopyalarsan uzaktan (paylaşım sayesinde) bu programı çalıştırarak masaüstü resmini değiştirebilirsin.

http://bdn.borland.com/article/0,1410,29037,00.html
adresinde walpaper nasıl değiştirilir anlatılmış

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
var
  PicPath: String;
begin
  PicPath := 'C:\WINNT\Prairie Wind.bmp';
  SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, pChar(PicPath), SPIF_SENDCHANGE)
end;

Yada daha ayrıntılı
http://www.bsdg.org/SWAG/DELPHI/0235.PAS.html
adresinde;

Kod: Tümünü seç

program wallpapr;

uses
Registry, WinProcs;

procedure SetWallpaper(sWallpaperBMPPath : String;bTile : boolean );
var
 reg : TRegIniFile;
begin
 //
 // change registry
 //
 // HKEY_CURRENT_USER
 //   Control Panel\Desktop
 //     TileWallpaper (REG_SZ)
 //     Wallpaper (REG_SZ)
 // 
 reg := TRegIniFile.Create( 'Control Panel\Desktop' );
 with reg do
 begin 
  WriteString( '', 'Wallpaper', sWallpaperBMPPath );
  if( bTile) then begin
   WriteString( '', 'TileWallpaper', '1' );
  end else  begin
   WriteString( '', 'TileWallpaper', '0' );
  end;
  end;
 reg.Free;
//
// let everyone know that we changed
// a system parameter
//
 SystemParametersInfo( SPI_SETDESKWALLPAPER, 0, Nil, SPIF_SENDWININICHANGE );
end;
begin
 SetWallpaper( 'c:\winnt\winnt.bmp', False );
end.

[ozsal]

ok teşekkür ederim arkadaşım.
ama ben şöyle bir soru sorayım
ok program masaüstü resmini değişştriyo;


ben ana makinadan çalıştırarak 192.168.0.11 ıp adresli bilgisayarda
c:\ozgur\masaustudegistir.exe dosyasını o makinada nasıl çalıştıracağım?
ağdan paylaşımdan denediğim zaman kendi makinamda çalıştırıyor
teşekkürler

[husonet]

ok teşekkür ederim arkadaşım.
ama ben şöyle bir soru sorayım
ok program masaüstü resmini değişştriyo;


ben ana makinadan çalıştırarak 192.168.0.11 ıp adresli bilgisayarda
c:\ozgur\masaustudegistir.exe dosyasını o makinada nasıl çalıştıracağım?
ağdan paylaşımdan denediğim zaman kendi makinamda çalıştırıyor
teşekkürler

her makinanın startında o exenin çalışmasını sağlayabilirsin bunun için registry den yada başlangıç klasörüne koyman yeterli olur.

kolay gelsin...

[ozsal]

eyvallah üstad. Sağolasın. ama o sadece bilgisayara res atıldığı zaman oluyor. bunu sağlamanın anlık bir yolu yok mu? yani bir düğmeye tıklatınca direk karşı bilgisayarda o programı çalıştırmanın ? teşekkür ederim

[rsimsek]

Kurup denememiş olmakla beraber NetOp gibi cafe yönetim programları ile yapabilirsin. Ayrıca bir de DeepFreeze kurup herhangi bir program ekleme-kaldırmaya da izin vermediğin sürece daha sorunsuz bilgisayarları uzun süre çalıştırman işten bile değil.. Belki sorduğun bu değildir, delphi ile bir şeyler yapmaya çalışıyor olabilirsin

[poshet303]

Evet kusura bakmayın uzak bilgisayardaki exe yi çalıştırınca sizin cihazınızda çalıştığını gözden kaçırmışım.

Ağda uzaktaki bir bilgisayara bağlanarak onun üstünde işlem yapabilen yazılımlar var. Uzak bilgisayarın ekran görüntüsünü görerek sanki kendi makineniz gibi kullanabiliyorsunuz.
ReAdmin bunlardan biri. ReAdmin server ı client lara kuruyorsunuz, ReAdmin viewer ıda kendi cihazınıza kuruyorsunuz. ReAdmin ücretli bir yazılım.

Microsoft un uzaktan yardımı var.

LogMeIn (http://www.logmein.com) isminde bu hizmet web üzerinden sağlayan bir yazılım var. Client lara küçük bir eklenti kuruyor. Sonra Internet erişimi olan her hangi bir bilgisayardan hiç bir şey kurmaksızın web üzerinden client a erişebiliyorsunuz. (Tuhaf ama LAN da çalışan ReAdmin den daha hızlı). Hizmet paralı ama ücretsiz bazı hizetleri kullanabiliyorsunuz sizin işinizi görür.(logmein in web siz uygulamasıda var ama denemedim)

Bu yanıt Delphi ile ilgili olmadı kusura bakmayın. Soru Delphi ile ilgili olmadığı için ...

[aLonE CoDeR]

@poshet303;

Bu tarz programlar genel olarak socket bileşenlerini kullanmak ve stream akıtmak suretiyle çalışırlar ve ilgili cliente gönderilen mesaj doğrultusunda yorumlayıcının tetiklenmesini sağlarlar.Bu tamamen farklı bi olay.Yapılmak istenen şey için apiler olduğunu hatırlıyorum ama nerede okumuştum, syntax ve parametreleri nasıldı tamamen unutmuşum

Kolay gele..

[ozsal]

ilgilendiğiniz için teşekkür ederim.
..aynı şekilde windowsun uzak masaüstü yöntemi de var ama
bem istediğim öyle uzun hikaye olcak bir şey değil

biraz bu konuda kafa patlattıktan sonra istediğim şeyin bir nevi bir cafe programında oldugu gibi karşı bilgisayara kurulan bir client programı olması gerektiğini düşünüyorum şimdilik. tabi daha açık bir yol bulamazsam . eğer direk erişmem gerek,irse muhtemelen başıma bir de windows güvenliği derdi açılacak.
bence ben clientlara bir numara ile beraber bir client programı yüklemeliyim
mesela 1 nolu masanın(192.168.0.2) clıent programında bilgisayar 1 olarak tanımlanmalı
serverda da
masa1 buttonuna tıkladığımda 1 nolu client programına gonderme yapcak

atıyorum
clıent programı verıyı aldıgında da duvarkagdeg.exe programını çalıştıracak.
bence izlemem geren yol bu.
ama ben ne bu yoldan emınım ne de nasıl yapacagım hakkında bir bilgim var.
ilgilenen, en azından üşenmeyip okuyan arkadaşlara teşekkürler. teşekkürler.

[sTb]

Kolay Gelsin..

Delphi nini demolarında chat örneği var. orada bilgisayara bir msj geldiğinde normalde gelen msj memo nun içerisine yazıyor. sen bunu değiştirerek farklı işlemler yaptırabilirsin ( duvar kağıdı değiştirmek gibi )

Eğer sadece sen istediğin zaman duvar kağıdının değişmesini istemiyorsan farklı bir öneride söyle olabilir .. yaptığın program duvar kağıdının değişip değişmedğini kontrol eder ve bir değişiklik var ise senini istediğin resmi tekrar koyar. Böylelikle duvar kağıdı her zaman senini istediğin resim kalır.

Saygılarımla