paylaşım verme

[baypipox]

Arkadaşlar kolay gelsin

Programdan belirteceğim klasöre otamatik ağda paylaşım vermek istiyorum bunu delphi'den yapabilirmiyim, nasıl?

[unicorn64]

dos komutlarından "net share" kullanarak ağda paylaşıma açman mumkun. delphiden dos komutu kullanmak için ise bi memo ya batch dosyanın içeriğini ekler bat dosyası olarak kaydeder ve çalıştırırsın. ayrıntılar forumda..

[baypipox]

evet arama yaptım ama bişey bulamadım.
kodun nasıl kullanılacağına dair bilen varsa, bir zahmet

İlgilenenlere Çok tşkr ederim.

[sabanakman]

Kod: Tümünü seç

net share paylas=c:\paylasim /unlimited
paylas isimli paylaşım oluşturur ve c:\paylasim klasörünü kullanır.
net share paylas /delete
paylas isimli paylaşımı siler

net share komutu Server 2000 - 2003 gibi sistemlerde pek bir işe yaramıyor ama.

[baypipox]

çok teşekkür ederim... saolun

[baypipox]

Kod: Tümünü seç

WinExec(PChar(Format('net share %s=%s /unlimited',[PaylasimAdi,hedef])),SW_HIDE);

Yukarıdaki kodda hedef program files'ın içinde ise paylaşım vemiyo, başka bir yerde ise veriyo, neden böyle yapıyo olabilir ve yapmaması için ne yapabilirim.[/code]

[sabanakman]

Kod: Tümünü seç

WinExec(PChar(Format('net share %s=%s /unlimited',[PaylasimAdi,hedef])),SW_HIDE);

Yukarıdaki kodda hedef program files'ın içinde ise paylaşım vemiyo, başka bir yerde ise veriyo, neden böyle yapıyo olabilir ve yapmaması için ne yapabilirim.[/code]

Dikkat edilirse Program Files klasör isminde boşluk karakteri bulunmaktadır. Sorun bundan kaynaklanıyor. Çözümü ise klasör ismini " karakterleri içinde yazmak ("Program Files" gibi).
Çözüm:

Kod: Tümünü seç

WinExec(PChar(Format('net share %s="%s" /unlimited',[PaylasimAdi,hedef])),SW_HIDE);

İyi çalışmalar.

[Lost Soul]

dosya sistemi ntfs ise winxp pro da sistemin kurulu olduğu bölüm için paylaşıma izin vermeyebilir. bende ike iis, apachee, dotnet allah ne verdiyse kurmuştum güvenlik ayarlarını filan değiştirmiştim. c: sürücüsündeki herhangi bir klasöre paylaşım veremiyordum

[baypipox]

paylasimAdi:='Bilg';
hedef:='C:\"Program Files"\Bilgisayar\card';
WinExec(PChar(Format('net share %s=%s /unlimited',[PaylasimAdi,hedef])),SW_HIDE);

Şaban abi yukarıdaki gibi yaptım olamadı

[sabanakman]

Çözümü verdiğim halde yanlış anlamışsın, sebebi sadece örneğimi dikkate almandan kaynaklanıyor galiba.

Çözüm:

Kod: Tümünü seç

WinExec(PChar(Format('net share %s="%s" /unlimited',[PaylasimAdi,hedef])),SW_HIDE);

------------------------

paylasimAdi:='Bilg';
hedef:='C:"Program Files"\Bilgisayar\card';
WinExec(PChar(Format('net share %s=%s /unlimited',[PaylasimAdi,hedef])),SW_HIDE);

Hata olması normaldir çünkü tüm klasörü " karakterleri içinde yazman gerekmektedir. Doğrusu:

Kod: Tümünü seç

paylasimAdi:='Bilg';
    hedef:='"C:\Program Files\Bilgisayar\card"';
    WinExec(PChar(Format('net share %s=%s /unlimited',[PaylasimAdi,hedef])),SW_HIDE);

olmalıdır. Sen aslen ilk örneğimdeki gibi kullansaydın (senin verdiğin ilk örnekten tek farkı %s="%s" dir) hata oluşmayacaktı diye tahmin ediyorum. Çünkü ben denedim oldu.

Kod: Tümünü seç

  paylasimAdi:='Bilg';
    hedef:='C:\Program Files\Bilgisayar\card';
    WinExec(PChar(Format('net share %s="%s" /unlimited',[PaylasimAdi,hedef])),SW_HIDE);

[baypipox]

Kod: Tümünü seç

PaylasimAdi:string;
hedef:string;
begin
    paylasimAdi:='paylas';
    hedef:=('"C:\Program Files\Bilgisayar\card"');

    WinExec(PChar(Format('net share %s=%s /unlimited',[PaylasimAdi,hedef])),SW_HIDE);

saban abi bu sekilde deek istemiş, yani ilk önce tek tırnak sonra çift tırnak

Kod: Tümünü seç

('"C:\Program Files\Bilgisayar\card"');

[baypipox]

tam ben davayı çakmış, mesajı düzeltirken, şaban tekrar yetişmiş imdadıma saol abi allah razı olsun sorun gitti. evet haklısın abi biraz ditkat sorunum var benim...