procedure TSplash.FormCreate(Sender: TObject);
var
  Temp: Integer;
  Rede: TNetResource;
  BcoDados: TextFile;
  Registro: TRegistry;
  BDE, Servidor: String;
  Passo: array [1..15] of HRGN;
  Diretorio: array [0..255] of Char;
begin
  //********** CONFIGURA BDE **********//
  Registro:=TRegistry.Create;
  Registro.RootKey:=HKey_Local_Machine;
  if not(IsWindow(FindWindow(nil, 'D'+'e'+'l'+'p'+'h'+'i'+' '+'6'))) then
    begin
      Registro.OpenKey('Software\Borland\DataBase Engine',True);
      BDE:=Registro.ReadString('DLLPath');
      Registro.WriteString('DLLPath','C:\Sigma\Ferramentas\BDE');
      Registro.CloseKey;
      if (Trim(BDE)<>'') and (BDE<>'C:\Sigma\Ferramentas\BDE') then
        begin
          Registro.OpenKey('Software\Sigma Desenvolvimento de Software\BDE',True);
          Registro.WriteString('BDE',BDE);
          Registro.WriteString('Restaurado','Não');
          Registro.CloseKey;
        end;
    end;
  Registro.Free;
  if FileExists('C:\Sigma\Controle\Banco de Dados\Principal\Indices.db') then
    begin
      //********** CRIA DRIVE S **********//
      GetWindowsDirectory(Diretorio,144);
      if not(DirectoryExists('S:\')) then WinExec(PChar(Diretorio+'\Command\Subst.exe S: C:\Sigma'),SW_Hide);
    end
  else
    begin
      //********** MAPEAMENTO DE REDE **********//
      if not(DirectoryExists('S:\')) then
        begin
          if not(FileExists('C:\Sigma\Controle\Rede.sgm')) then
            repeat
              Application.HelpFile:='C:\Sigma\Controle\Controle.hlp';
              Application.CreateForm(TSolicitacao, Solicitacao);
              Solicitacao.HelpContext:=10046;
              Solicitacao.Label1.Caption:='Informe o nome do administrador!';
              Solicitacao.ShowModal;
              Solicitacao.Free;
              if MultiUso='' then
                begin
                  MultiUso:='Sem rede';
                  Abort;
                end;
              if FileExists('\\'+MultiUso+'\Sigma\Controle\Banco de Dados\Principal\Indices.db') then
                begin
                  AssignFile(BcoDados,'C:\Sigma\Controle\Rede.sgm');
                  Rewrite(BcoDados);
                  WriteLN(BcoDados,MultiUso);
                  CloseFile(BcoDados);
                  MultiUso:='';
                end;
            until MultiUso='';
          AssignFile(BcoDados,'C:\Sigma\Controle\Rede.sgm');
          Reset(BcoDados);
          ReadLN(BcoDados,Servidor);
          CloseFile(BcoDados);
          Rede.dwType:=ResourceType_Any;
          Rede.lpLocalName:='S:';
          Rede.lpRemoteName:=PChar('\\'+Servidor+'\Sigma');
          Rede.lpProvider:='';
          WNetAddConnection2(Rede,'','',Connect_UpDate_Profile);
          if GetLastError<>NO_ERROR then
            begin
              Application.HelpFile:='C:\Sigma\Controle\Controle.hlp';
              Application.CreateForm(TInformacao, Informacao);
              Informacao.HelpContext:=10052;
              Informacao.Label1.Caption:='A rede não está atualizada, tecle F1!';
              Informacao.ShowModal;
              Informacao.Free;
              MultiUso:='Sem rede';
            end;
        end;
    end;
end;