Fórum Codigo p/ executar setup de um aplicativo #253991

Caro Colega,

vc pode usar uma dessa funções :

{Uses ShellAPI}
ShellExecute(Handle, nil, ´Calc.exe´, nil, ´C:\WinNT\´, SW_Normal);

WinExec(´C:\WinNt\Calc.exe´, SW_NORMAL);

Agora se vc quer q o propriio sistema identifica a unidade de CDROM utilize a seguinte função pra pegar a letra da unidade de CDROM :

Function CDROMDrive: Char;
Var
drivemap, mask: DWORD;
i: Integer;
root: String;
Begin
Result := #0;
root := ´A:\´;
drivemap := GetLogicalDrives;
mask := 1;
For i:= 1 To 32 Do
Begin
If (mask and drivemap) <> 0 Then
If GetDriveType( PChar(root) ) = DRIVE_CDROM Then
Begin
Result := root[1];
Break;
End;
mask := mask shl 1;
Inc( root[1] );
End;
End;


Espero ter ajudado.

t++

Christian.