Compartilhar pasta local via delphi

Question

Ol� amigos...Minha d�vida � em rela��o a compartilhamento de pastas na rede. Meu sistema em determinado momento precisa compartilhar uma pasta para as esta��es de uma rede local e depois descompartilh...

Sanses · Answer

muto obrigado amigo, funcionou perfeitamente no DOS. Agora s� falta eu implementar isso no sistema, executar atravez do delphi.Valew pwla for�aSanses...

Sanses · Answer

amigo, para compartilhar foi tudo bem, mas para descompartilhar d� erro 123 no cmd.Se puder exclarecer que erro � esse agrade�oSanses...

Beppe · Answer

Para rodar o comando, use �command.com /c net share...� como string para WinExec.

O comando para exlus�o toma apenas o nome do compartilhamento.

net share Dados /delete

Sanses · Answer

OKAgora funciona corretamente.Mais uma vez, muito obrigado amigo!!Sanses...

Larry · Answer

[quote:52aba7cc45=�Beppe�]No DOS:[code:1:52aba7cc45]net share Dados=C:Dadosnet share Dados=C:Dados /delete[/code:1:52aba7cc45][/quote:52aba7cc45]Oi,Voce sabe como usar este comando para compartilhar um impressora local na rede?...

Pestana_ · Answer

[quote:5b937b80cc=�Sanses�]Ol� amigos...Minha d�vida � em rela��o a compartilhamento de pastas na rede. Meu sistema em determinado momento precisa compartilhar uma pasta para as esta��es de uma rede local e depois descompartilhar esta pasta.N�o encontrei nada no f�rum a respeito, somente sobre mapeamento de unidades j� compartilhadas, o que n�o resolve meu problema. Pode ser at� via comandos DOS, mas a pasta tem que estar compartilhada no momento que o sistema precisar.Obrigado pela aten��oSanses[/quote:5b937b80cc]poxa eu estou passando pelo o mesmo problema e n�o estou coseguindo resolver, como fa�o para executar este comando do dos no delphi?Obrigado pela aten��o!Pestana....

Vitor Alcantara · Answer

Voc� poderia criar um arquivo bat em tempo de execu��o em seguida executalo.

Ex:

procedure TForm1.Button1Click(Sender: TObject);
var
  f:textFile;
begin
  assignFile(f,�Exec.Bat�);
  Rewrite(f);
  WriteLn(f,�net share C:\Jogos /DELETE�);
  WriteLn(f,�Pause�);
  Closefile(f);
  WinExec(�Exec.Bat�,sw_shownormal);
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  f:textFile;
begin
  assignFile(f,�Exec.Bat�);
  Rewrite(f);
  WriteLn(f,�net share Jogos=C:\Jogos�);
  WriteLn(f,�Pause�);
  Closefile(f);
  WinExec(�Exec.Bat�,sw_shownormal);
end;

Pestana_ · Answer

[quote:1f08408616=�Vitor Araujo Alcantara�]Voc� poderia criar um arquivo bat em tempo de execu��o em seguida executalo.

Ex:

procedure TForm1.Button1Click(Sender: TObject);
var
  f:textFile;
begin
  assignFile(f,�Exec.Bat�);
  Rewrite(f);
  WriteLn(f,�net share C:\Jogos /DELETE�);
  WriteLn(f,�Pause�);
  Closefile(f);
  WinExec(�Exec.Bat�,sw_shownormal);
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  f:textFile;
begin
  assignFile(f,�Exec.Bat�);
  Rewrite(f);
  WriteLn(f,�net share Jogos=C:\Jogos�);
  WriteLn(f,�Pause�);
  Closefile(f);
  WinExec(�Exec.Bat�,sw_shownormal);
end;

[/quote:1f08408616]

[b:1f08408616]Vitor Araujo Alcantara[/b:1f08408616] obrigado por responder, vou testar hoje a noite e depois posto o resultado.

agrede�o pela aten��o,
Pestana.

Krux · Answer

Ol� a Todos, n�o sei se apenas em meu caso apareceu esta mensagem,, mas ao tentar acessar a pasta compartilhada de outro computador �\\local\pasta n�o esta acessivel. talvez voc� n�o tenha permiss�o para usar este recurso de rede...�
existe mais alg�m com este problema?... obrigado

Pestana_ · Answer

[quote:2db60b38f8=�Vitor Araujo Alcantara�]Voc� poderia criar um arquivo bat em tempo de execu��o em seguida executalo.

Ex:

procedure TForm1.Button1Click(Sender: TObject);
var
  f:textFile;
begin
  assignFile(f,�Exec.Bat�);
  Rewrite(f);
  WriteLn(f,�net share C:\Jogos /DELETE�);
  WriteLn(f,�Pause�);
  Closefile(f);
  WinExec(�Exec.Bat�,sw_shownormal);
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  f:textFile;
begin
  assignFile(f,�Exec.Bat�);
  Rewrite(f);
  WriteLn(f,�net share Jogos=C:\Jogos�);
  WriteLn(f,�Pause�);
  Closefile(f);
  WinExec(�Exec.Bat�,sw_shownormal);
end;

[/quote:2db60b38f8]

Vitor obrigad�o pela ajuda, deu certo!

vlw.

F�rum Compartilhar pasta local via delphi #266634