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

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
Kullanıcı avatarı
ozsal
Üye
Mesajlar: 108
Kayıt: 22 Oca 2006 07:55
Konum: izmir
İletişim:

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

Mesaj gönderen 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
Üye
Mesajlar: 235
Kayıt: 26 Eki 2005 01:15

Mesaj gönderen 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.
Kullanıcı avatarı
ozsal
Üye
Mesajlar: 108
Kayıt: 22 Oca 2006 07:55
Konum: izmir
İletişim:

Mesaj gönderen ozsal »

ok teşekkür ederim arkadaşım.
ama ben şöyle bir soru sorayım :oops:
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 :oops:
teşekkürler
Kullanıcı avatarı
husonet
Admin
Mesajlar: 2962
Kayıt: 25 Haz 2003 02:14
Konum: İstanbul
İletişim:

Mesaj gönderen husonet »

ozsal yazdı:ok teşekkür ederim arkadaşım.
ama ben şöyle bir soru sorayım :oops:
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 :oops:
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...

Gazete manşetleri
* DİKKAT :Lütfen forum kurallarını okuyalım ve uyalım...!
* Warez,crack vs. paylaşımı kesinlikle yasaktır.
Kullanıcı avatarı
ozsal
Üye
Mesajlar: 108
Kayıt: 22 Oca 2006 07:55
Konum: izmir
İletişim:

Mesaj gönderen 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
Kullanıcı avatarı
rsimsek
Admin
Mesajlar: 4482
Kayıt: 10 Haz 2003 01:48
Konum: İstanbul

Mesaj gönderen 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 :wink:
Bilgiyi paylaşarak artıralım! Hayatı kolaylaştıralım!!
poshet303
Üye
Mesajlar: 235
Kayıt: 26 Eki 2005 01:15

Mesaj gönderen 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
Kıdemli Üye
Mesajlar: 1223
Kayıt: 26 Nis 2005 04:08

Mesaj gönderen 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 :oops:

Kolay gele..
Kullanıcı avatarı
ozsal
Üye
Mesajlar: 108
Kayıt: 22 Oca 2006 07:55
Konum: izmir
İletişim:

Mesaj gönderen 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.
Kullanıcı avatarı
sTb
Üye
Mesajlar: 59
Kayıt: 06 Nis 2005 11:13
Konum: Eskişehir

Mesaj gönderen 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
" Her bildiğin doğru olsun. Ama her doğruyu her yerde söylemek doğru değildir. "
Cevapla