conteúdo do cd
15/12/2003
0
Criei um CD-ROM que abre o programa utilizando o autorun.inf.
Neste programa tem um botão que, ao ser clicado, deverá mostrar o conteúdo do CD.
Como deverá ser o código desse botão?
Valeu,[/size:6be0c851a7]
Favor postar com título em minúsculas
Zoom
Administrador
Tenil
Posts
15/12/2003
Beppe
ShellExecute(0, ´´, PChar(GetCDDriveString), nil, nil, SW_SHOWNORMAL);
Adicione ShellAPI ao uses.
PS: Não precisa usar uma letra tão grande, eu ainda enxergo perfeitamente. :(
16/12/2003
Tenil
Só tem um probleminha, no XP rodou legal, mas no W98 não funcionou.
Vc sabe por que?
Obrigado
16/12/2003
Tenil
Escrevi:
ShellExecute(handle, ´OPEN´, PChar(ExtractFilePath(Application.ExeName)), NIL, NIL, SW_SHOWNORMAL);
Ao invés de:
ShellExecute(0, ´´, PChar(GetCDDriveString), nil, nil, SW_SHOWNORMAL);
Muito obrigado brother, ;)
17/12/2003
Beppe
Mas a alternativa que você encontrou é prática e até preferível, já que se o conteúdo do CD for movido para outra pasta, aquela pasta será aberta.
Estou postando ela aqui agora, só para não ficar uma lacuna no tópico. :D
function GetCDDriveString: String; var C: Char; begin for C := ´A´ to ´Z´ do begin Result := C + ´:\´; if GetDriveType(Pointer(Result)) = DRIVE_CDROM then Exit; end; Result := ´´; end;
17/12/2003
Tenil
O código que funcionou no XP e 2000 foi:
ShellExecute(handle, ´´, PChar(ExtractFilePath(Application.ExeName)), NIL, NIL, SW_SHOWNORMAL);
Para funcionar no W98 só estava faltando a palavra de operação [b:9a37e76110]´open´[/b:9a37e76110]:
ShellExecute(handle, ´OPEN´, PChar(ExtractFilePath(Application.ExeName)), NIL, NIL, SW_SHOWNORMAL);
Clique aqui para fazer login e interagir na Comunidade :)