Fórum Rodar arquivos direto do CD rom, a letra do drive ? #152876
08/04/2003
0
Quero Desenvoler um aplicativo, no qual alguns arquivos de jpg´s, wave, mp3, mpeg, entre outros sejam executados a partir da unidade do
CD ROM:
Na minha máquina o drive do cd rom ´´e a letra ´D´ .
Então eu programo ( loadfromfile´d:\......)
Mas quando eu distribuir esse aplicativo para um Cliente cujo drive do
cd rom seje: F, G, H, ...
por favor o que devo fazer ??????
Lbsystems
Curtir tópico
+ 0Posts
08/04/2003
Aroldo Zanela
Não sei se vai servir exatamente para o seu propósito, mas fiz um exemplo de como ´pegar´ o drive a partirpath do programa em execução.
Veja o exemplo:
procedure TForm1.Button1Click(Sender: TObject); begin ShowMessage(PegarDrive(ExtractFilePath(ParamStr(0)))); end; function TForm1.PegarDrive(Path: String): String; begin result := Copy(Path,1,Pos(´\´,Path)); end;
Gostei + 0
08/04/2003
Aroldo Zanela
Não sei se vai servir exatamente para o seu propósito, mas fiz um exemplo de como ´pegar´ o drive a partirpath do programa em execução.
Veja o exemplo:
procedure TForm1.Button1Click(Sender: TObject); begin ShowMessage(PegarDrive(ExtractFilePath(ParamStr(0)))); end; function TForm1.PegarDrive(Path: String): String; begin result := Copy(Path,1,Pos(´\´,Path)-1);
Retificação do código.
Gostei + 0
08/04/2003
Okama
Gostei + 0
09/04/2003
Dor_poa
Var
Unidades, Contador: Integer;
Unidad: String;
Begin
Unidades := GetLogicalDrives;
For Contador := 0 To 31 Do begin If (Unidades And (Trunc(Exp(Contador*Ln(2))))) <> 0 Then Begin
Unidad := Char(Contador + 65) + ´:\´;
If GetDriveType(PChar(Unidad)) = DRIVE_CDROM then begin
Break; end; end;
Result := Unidad;
end; End;
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)