Rodar arquivos direto do CD rom, a letra do drive ?

Delphi

08/04/2003

:( :( :(

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

Lbsystems

Curtidas 0

Respostas

Aroldo Zanela

Aroldo Zanela

08/04/2003

Colega,

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
Aroldo Zanela

Aroldo Zanela

08/04/2003

Colega,

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
Okama

Okama

08/04/2003

Copy(Application.Exename,1,1)


GOSTEI 0
Dor_poa

Dor_poa

08/04/2003

Function LetraCDROM: String;
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
POSTAR