Como obter caminho da aplicação em formato MSDos??
Turma.. Seguinte..
Estou precisando utilizar o net share mas esse só funcionou quando digitei o path em formato MSDos..
ou seja, digitando assim não funciona:
net share padroes$=c:\arquivos de programas\teste
mas se eu digito assim funciona:
net share padroes$=c:\arquiv~1\teste
aproveitando a pergunta.. Como faço pra minha aplicação delphi rodar esse comando???
Preciso que a aplicação compartilhe a pasta que ela se encontra
Valeus
Estou precisando utilizar o net share mas esse só funcionou quando digitei o path em formato MSDos..
ou seja, digitando assim não funciona:
net share padroes$=c:\arquivos de programas\teste
mas se eu digito assim funciona:
net share padroes$=c:\arquiv~1\teste
aproveitando a pergunta.. Como faço pra minha aplicação delphi rodar esse comando???
Preciso que a aplicação compartilhe a pasta que ela se encontra
Valeus
Zenner
Curtidas 0
Respostas
Lbcosta
14/07/2004
Turma.. Seguinte..
Estou precisando utilizar o net share mas esse só funcionou quando digitei o path em formato MSDos..
ou seja, digitando assim não funciona:
net share padroes$=c:\arquivos de programas\teste
mas se eu digito assim funciona:
net share padroes$=c:\arquiv~1\teste
aproveitando a pergunta.. Como faço pra minha aplicação delphi rodar esse comando???
Preciso que a aplicação compartilhe a pasta que ela se encontra
Valeus
Use aspas no caminho do compartilhamento:
net share padroes$=´c:\arquivos de programas\teste´
[]s
GOSTEI 0
Lbcosta
14/07/2004
[quote:195a28d619=´-=|LbCoStA|=-´]
Use aspas no caminho do compartilhamento:
net share padroes$=´c:\arquivos de programas\teste´
[]s[/quote:195a28d619]
Completando
para chamar o comando via delphi declare a unit [b:195a28d619]shellapi[/b:195a28d619]
ShellExecute(hInstance,´open´, ´net.exe´, PChar(´share padrao$=´´ + Copy(ExtractFilePath(Application.ExeName), 1, (Length(ExtractFilePath(Application.ExeName)) - 1)) + ´´´), nil, SW_HIDE);
Explicações:
hInstance -> pega o handle do form pai
´open´ -> informa ao shellexecute que é para abrir o programa, caso vc queria imprimir um documento troque por print
´net.exe´ -> o programa que quero abrir
PChar(´share padrao$=´´ + Copy(ExtractFilePath(Application.ExeName), 1, (Length(ExtractFilePath(Application.ExeName)) - 1)) + ´´´) -> To pegando o diretorio da aplicação e criando o compartilhamento de nome padrao$ tive que da um copy para tirar a contra barra final do comando extractfilepath
nil -> diretorio onde o net.exe está...como o net tá no path do windows nao a a necessidade de informa-lo
SW_HIDE -> roda o comando escondido
Turma.. Seguinte..
Estou precisando utilizar o net share mas esse só funcionou quando digitei o path em formato MSDos..
ou seja, digitando assim não funciona:
net share padroes$=c:\arquivos de programas\teste
mas se eu digito assim funciona:
net share padroes$=c:\arquiv~1\teste
aproveitando a pergunta.. Como faço pra minha aplicação delphi rodar esse comando???
Preciso que a aplicação compartilhe a pasta que ela se encontra
Valeus
Use aspas no caminho do compartilhamento:
net share padroes$=´c:\arquivos de programas\teste´
[]s[/quote:195a28d619]
Completando
para chamar o comando via delphi declare a unit [b:195a28d619]shellapi[/b:195a28d619]
ShellExecute(hInstance,´open´, ´net.exe´, PChar(´share padrao$=´´ + Copy(ExtractFilePath(Application.ExeName), 1, (Length(ExtractFilePath(Application.ExeName)) - 1)) + ´´´), nil, SW_HIDE);
Explicações:
hInstance -> pega o handle do form pai
´open´ -> informa ao shellexecute que é para abrir o programa, caso vc queria imprimir um documento troque por print
´net.exe´ -> o programa que quero abrir
PChar(´share padrao$=´´ + Copy(ExtractFilePath(Application.ExeName), 1, (Length(ExtractFilePath(Application.ExeName)) - 1)) + ´´´) -> To pegando o diretorio da aplicação e criando o compartilhamento de nome padrao$ tive que da um copy para tirar a contra barra final do comando extractfilepath
nil -> diretorio onde o net.exe está...como o net tá no path do windows nao a a necessidade de informa-lo
SW_HIDE -> roda o comando escondido
GOSTEI 0