ActiveDelphi

mayckers · Enviada: Sáb Jul 15, 2006 3:11 pm Assunto: Como explorar o diver de CD ?????

olá, estou desenvolvendo um programa que dentre suas funções ele deve abrir o driver de CD tipo (open diver D) poderiam me informar o codigo para isso no delphi, pois não estou conseguindo ... e se poder tambem o codigo para abrir uma pasta no windows... valeu !!! desde ja agradeço.

Mayckers

LandersonGomes · Enviada: Sáb Jul 15, 2006 4:18 pm Assunto: Como explorar o diver de CD ?????

Inclua na seção uses: MMSystem

{ Para abrir }
mciSendString(\'Set cdaudio door open wait\', nil, 0, handle);

{ Para fechar }
mciSendString(\'Set cdaudio door closed wait\', nil, 0, handle);

Veja se resolve...

_________________
Landerson Gomes dos Santos
http://vivaitaocara.com.br/landersongomes

mayckers · Enviada: Sáb Jul 15, 2006 4:29 pm Assunto: Como explorar o diver de CD ?????

Desculpe eu não expliquei direito, eu não quero abrir o Driver eu quero abrir uma pasta como se fosse para explorar o CD... tipo ao clicar no botão (EXPLORAR CD) ele abre a pasta e mostra os arquivos que tem no CD dando a possibilidade ao usuario de copiar o conteudo do CD... valeu mesmo pela resposta... desde de já agradeço

Mayckers

MarcusBraga · Enviada: Sáb Jul 15, 2006 4:42 pm Assunto: Como explorar o diver de CD ?????

Declare a unit ShellApi na clausula uses do Form.

jogue esta função no seu progrma.

function ExecExplorer(OpenAtPath: string; OpenWithExplorer, OpenAsRoot: Boolean): boolean;
var
s: string;
begin
if OpenWithExplorer then
begin
if OpenAsRoot then
s := \' /e,/root,"\' + OpenAtPath + \'"\'
else
s := \' /e,"\' + OpenAtPath + \'"\';
end
else
s := \'"\' + OpenAtPath + \'"\';
result := ShellExecute(Application.Handle,PChar(\'open\'),PChar(\'explorer.exe\'),PChar(s),nil,SW_NORMAL) > 32;
end;

Coloque no evento onclick do seu button este comando.

execExplorer(\'D:\\\', True,True);{Caso a unidade de CD Room seu seja a unidade D}

mayckers · Enviada: Sáb Jul 15, 2006 5:06 pm Assunto: Como explorar o diver de CD ?????

Muito bom, o resultado foi exato, valeu mesmo.

Mayckers

MarcusBraga · Enviada: Sáb Jul 15, 2006 5:10 pm Assunto: Como explorar o diver de CD ?????

Que isso, precisando posta ai!!!

MunDissa · Enviada: Dom Jul 16, 2006 5:20 pm Assunto: Como explorar o diver de CD ?????

Aproveitando a pergunta, mas e se meu drive for exporádico, ou seja ele pode mudar de computador para computador, ae não daria para especificar uma letra, então como procederia para abrir ???

MarcusBraga · Enviada: Dom Jul 16, 2006 7:50 pm Assunto: Como explorar o diver de CD ?????

Crie uma variavel string sei la tipo local e coloque um edit para informar o caminho.

Coloque no evento onclick do seu button este comando.
Var
[b] local[/b]:String;
Begin
[b] local[/b]:=edit1.text; {Variavel recebe valor do edit}
execExplorer( [b] local[/b], True,True);{local = caminho indicado no edit}

MunDissa · Enviada: Seg Jul 17, 2006 12:00 am Assunto: Como explorar o diver de CD ?????

Vlw Marcus, mas desta forma vou ter que inserir a letra do drive toda vez antes de abrir correto, mas já vi um programinha rodando e pegando a letra da unidade de cd direto, sem precisar informar, inclusive quando vc clicava no botão explorar cd, ele abria o windows explorer só com a unidade de cd, e escondia todas as outras unidades, tenho ele aqui se quiser depois posto uma img.

Mas de qquer forma agradeço a ajuda... abs...