Fiz um jogo do tipo Show do milh�o ..., mas ...

Question

Fiz um jogo do tipo Show do milh�o ...S� que eu quero que o programa seja executado  a partir do cd rom ...No desktop deve ter um atalho, se o cd n�o estiver no drive, dever� aparecer:� Favor inserir ...

Tatuweb · Answer

Vc pode, se quiser, deixar s� o execut�vel no CD, ou pode deixar tudo, dependendo do caso.

No seu caso eu faria um pequeno programa que ficaria no HD e este verificaria se o cd que est� no drive � o do jogo. Para fazer essa verifica��o vc pode, por exemplo, checar o caminho do execut�vel. Se esse caminho existir ent�o eu chamo o programa. Fiz abaixo um pequeno programa para resolver isso.

Primeiro crie um novo projeto, remova o form (Project/Remove from project) e de um Ctrl+ F12 para exibir o DPR. Remova todo o c�digo e acrescente o que est� abaixo:

program Project1;

uses Windows, SysUtils, ShellAPI;

// Obt�m a letra do CD-ROM
function GetFirstCdRomDrive: string;
var
  r: Integer;
  Drives: array[0..128] of char;
  pDrive: pchar;
begin
  Result := ��;
  r := GetLogicalDriveStrings(sizeof(Drives), Drives);
  if r = 0 then exit;

  pDrive := Drives;
  while pDrive^ <> #0 do
  begin
    if GetDriveType(pDrive) = DRIVE_CDROM then
    begin
      Result := pDrive;
      exit;
    end;
    inc (pDrive, 4);
  end;
end;

// --------------------------------------------------------------
var
  Path: string;
begin
  Path := GetFirstCdRomDrive + �pasta\arquivo.exe�;

  if not FileExists (Path) then
    MessageBox (0, PChar (�Favor inserir o Cd do Jogo�), PChar (�Aviso�), MB_OK)
  else
    ShellExecute (0, �open�, PChar (Path), nil, nil, SW_SHOWNORMAL);
end.

Espero que tenha ajudado.

F�rum Fiz um jogo do tipo Show do milh�o ..., mas ... #242258