Eu faço da seguinte forma: 1)no CD eu coloco o MSDE pra instalar normal já pré-configurado no .ini
2) coloco também um aplicativozinho que roda um script no banco. Este aplicativo irá carregar os scripts que cria a base de dados e as tabelas na base e ajustes adicionais como criar usuaário inicial e alimentar algumas tabelas. Veja abaixo o núcleo do código dele (a partir dele voce faz o seu). Este aplicativo carrega um script e roda no banco. Serve pra criar tabelas e ajustar dados. Mas pra tudo você terá que fazer via script sql. procedure TMMMAT.Button1Click(Sender: TObject); var fb : file of byte; f : textfile; qry : TADOQuery; PathScript, line : string; nline : integer; Resultado : TStringList; begin OpenDialogScript.Execute; PathScript := OpenDialogScript.FileName; if PathScript <> '' then begin ActiveButtonsImport; Button1.Enabled := False; pBar.position := 0; assignfile(fb,PathScript); FileMode := 0; Reset(fb); pBar.max := FileSize(fb); closefile(fb); assignfile(f, PathScript); reset(f); WinExec('NET START MSSQL$TELEMONT',SW_SHOWNORMAL); qry := TADOQuery.Create(nil); qry.ConnectionString := format('Provider=SQLOLEDB.1;Password=sa;Persist Security Info=True;User ID=sa;Initial Catalog=master;Data Source=%s\RECRIAR;',[NomeComputador]);; // qry.ConnectionString := 'Provider=SQLOLEDB.1;Password=rm;Persist Security Info=True;User ID=sa;Initial Catalog=master;Data Source=servdatarms\TELEMONT;'; Resultado := TStringList.Create; Application.ProcessMessages; try nline := 0; while (not eof(f)) and (not isStop) do begin inc(nline); readln(f, line); pBar.StepBy(length(line) + 2); line := trim(line); if uppercase(line) = 'GO' then begin try qry.ExecSQL; qry.SQL.Clear; except MessageDlg('Erro ao executar sentença na linha '+ IntToStr(nline-1) + ' :' + Exception(exceptobject).message, mtError, [mbOk], 0); Resultado.Add('Erro ao executar sentença na linha '+IntToStr(nline-1)+' :'); Resultado.Add(qry.SQL.text); Resultado.Add(exception(exceptobject).message); break; end; end else qry.SQL.Add(line); Application.ProcessMessages; end; finally qry.free; closefile(f); if Resultado.Count > 0 then begin fResult := TFResult.Create(nil); fResult.mResult.Lines.Assign(Resultado); fResult.ShowModal; fResult.free; end else Showmessage('Importação finalizada.'); Resultado.Free; end; DeactiveButtonsImport; end; end; []s Walter Alves Chagas Junior Projeto e desenvolvimento de sistemas Telemont Engenharia de telecomunicações S/A Belo Horizonte - MG - Brasil [EMAIL PROTECTED] Fone: (31) 3389-8215 Fax: (31) 3389-8200 Parabens Telemont - Somos a 8ª maior empresa do Brasil no segmento de construção!! -----Mensagem original----- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] nome de paulo4784 Enviada em: quarta-feira, 13 de setembro de 2006 13:43 Para: delphi-br@yahoogrupos.com.br Assunto: Re: RES: [delphi-br] Inno Setup com MSDE2000 Walter, até pode ser separado, mas minha dificuldade está em criar um instalador com o Inno Setup, que na opção servidor já anexe ou crie um banco de dados no MSDE. Vc usa algo assim? tem algum exemplo que eu possa me basear? Obrigado --- Em delphi-br@yahoogrupos.com.br, Walter Alves Chagas Junior <[EMAIL PROTECTED]> escreveu > > geralmente eu faço separado > > []s > > Walter Alves Chagas Junior > Projeto e desenvolvimento de sistemas > Telemont Engenharia de telecomunicações S/A > Belo Horizonte - MG - Brasil > [EMAIL PROTECTED] > Fone: (31) 3389-8215 Fax: (31) 3389-8200 > > Parabens Telemont - Somos a 8ª maior empresa do Brasil no segmento de > construção!! > > > -----Mensagem original----- > De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] > nome de paulo4784 > Enviada em: quarta-feira, 13 de setembro de 2006 11:04 > Para: delphi-br@yahoogrupos.com.br > Assunto: [delphi-br] Inno Setup com MSDE2000 > > > alguem tem o script pra fazer um instalador com o Inno Setup, > instalando o MSDE2000? > > > > > > > -- > <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> > > > > Links do Yahoo! Grupos > > > > > > > > > > [As partes desta mensagem que não continham texto foram removidas] > -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> Links do Yahoo! Grupos [As partes desta mensagem que não continham texto foram removidas] -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> <*> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages <*> Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos <*> Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ <*> Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] <*> O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html