Mi prograsma no funciona en otras maquinas

[gulder]

Hola foro como andan, tengo un caso que nunca se me había presentado realice un programa en Delphi 7 y todo bien, después cree un instalador y todo bien hasta hay pero resulta que mi programa solo corre en mi PC lo he probado en tres ordenadores diferentes y no funcionan alguien sabe por que se presenta esto y como solucionarlo saludos gulder.

[dec]

Hola,

Pero, no funciona... ¿y nada más? ¿No hay ningún error? Sin saber qué falla, poco podrá hacerse, ¿no?

[ixMike]

... me huele a runtime packages ...

[gulder]

Hola dec el programa cuando lo ejecuto me aparece en el puntero el relojito cargando y despues se desaparce y listo no sale mas nada, ixMike no entiendo que quieres decir con runtime packages pero me acabo de acordar que estoy utilizando un conponente externo a delphi que lo instales por aparte no se si depronto se este el que me produce el error, este componente benia en un paquete por aparte el paquete se llama JVCL 3.0 y el compoenete en mencion es JvPlayLis gracias de antemno gulder

[ixMike]

jeje, perdón por no ser claro.

Mira en Proyect|Options, pestaña Packages, y (si lo está) desmarca la casilla "Build with runtime packages" y vuelve a compilar. Si estaba marcada, el problema es que el ejecutable, para ocupar menos, omitía todas las BPL de Delphi, pero si en el ordenador no está instalado Delphi, pues el programa no se ejecuta (aunque debería salir un mensaje de error al respecto).

Si no es eso, yo revisaría que el programa al iniciarse no intente abrir un archivo que no exista o algo similar, a veces pasan cosas de esas.


Salu2

[gulder]

ixMike gracias por tu repuesta, pero la casilla Build with runtime packages estaba desmarcada y si mi programa al iniciar busca un archivo de configuracion y carga las opciones por defecto, pero el archivo lo carga bien, no se que pasa.

[Neftali [Germán.Estévez]]

¿Utilizas algun componente de terceros que necesite DLL's? (tipo compresores o demás...)
¿Qué sistema opreativo tienen los ordenadores donde no funciona?
¿Utilizas BDE? ¿Has comprobado que esté instalado?
¿Utilizas componentes no estandard de Delphi? ¿Cuales?

Das pocos datos y ningun error. De esa forma es difícil saber qué está pasando.

También puedes revisar (segun el S.O.) el registro de eventos del sistema a ver si allí tienes algun error registrado.

[gulder]

hola como andan todos, bueno Neftali respondiendo tus preguntas no utlzo ningun tipo de comprensores, pero si estoy utilizando unos componentes no estandar de delphi, que vienen en el siguiente paquete JEDI VCL o mas bien JVCL 3.0 es un paquete de compoenetes que trae una variedad de ello y los compoenetes de este paquete que estoy utilizando son los siguientes:

1. JvID3v21 que es para sacar informacion de un mp3
2. JvSelectDirectory que me permite seleccionar un directorio
3. JvPlaylist que es como un litboxt pero con otras funciones

en ciuanto ha BDE no estoy utilizando bueno espero ser mas especifico gracias de antemno gulder salu2

[[eduarcol]]

alguna base de datos??, tienes alguna idea de que error te esta dando, el mensaje que sale en pantalla??

[gulder]

gracias eduarcol por responder, bueno base de datos no utilizo y entre los errores yo mencione que solo se quedaba cargando y despues no aparecia, eso en las maquinas mias, en las maquinas que lo probe tiene el mismo sisema operativo que el mio lo unico que no tiene es delphi instalado, pero un compañaro de un foro por hay lo utilizo y me dijo que no le funciono y el error que le arrojo era que no habia disco en la unidad y despues nada de nada, y esto que me pregunto Neftali ¿Utilizas algun componente de terceros que necesite DLL's? como ya habia dicho si utilizo componetes de terceros pero cuando se si este compoenete necesito una DLL's gracias de antemano gulder saludos

[gulder]

lo mande dos veces disculpen saludos

[[eduarcol]]

seguro estas cargando un archivo desde una unidad de disco que no existe, si puedes coloca el codigo que se ejecuta al abrir el sistema para ver que hace

[Ferrari]

Coloca el Codigo y asi será todo un poco mas claro...

[Neftali [Germán.Estévez]]

Para saber qué ficheros necesita el ejecutable de tu programa, puedes usar los Gexperts (si es que los tienes instalados) -PE Information- o Dependency Walker (por ejemplo) del que ya hemos hablado alguna vez aquí.

[[Lepe]]

Todos los componentes de la JEDI son nativos, no necesitas Dll alguna.

Si da un error de disco, vé mirando las rutas que usas en tu programa, por ejemplo si usas LoadFromFile, si la PlayList tiene una carpeta por defecto que no está creada en el ordenador de destino, etc.



Saludos

[gulder]

Bueno foro aqui ba todo lo que hace mi programa:

DicsImage v 1.0 crea imagenes para tus albunes de musica de forma facil

http://img.tomatone.net/big/vnbv.PNG

DicsImage v 1.0 es una herramienta que te permite de una manera fácil dar a conocer las propiedades de un álbum de música por medio de imágenes con el fin de promocionarlo entre los demás usuarios de algún foro.
DicsImage v 1.0 guarda imagenes en formatos como lo son .jpg .bmp y .png las de formato png son las preferidas para subir a servidores de imagenes puesto que dan una resolucion buena y no pesan demasiado, aqui unos ejemplos hechos con esta aplicacion las cuales se encuentran en formato png:


http://img.tomatone.net/big/paramore.PNG

http://img.tomatone.net/big/patamore_riot.PNG

http://img.tomatone.net/big/patamore_live.PNG

//////////////////////////////////////////////////////////////////////////////////////
aqui esta el codigo de la aplicacion

Código Delphi [-]
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, JvExStdCtrls, JvListBox, JvPlaylist, ExtCtrls, ExtDlgs,
  JvBaseDlg, JvSelectDirectory, Menus, jpeg, JvComponent, JvID3v1,shellapi,math,
  JvID3v2Base, JvID3v2, JvDialogs,IniFiles,pngimage ;


type
  TForm1 = class(TForm)
    OpenDialog1: TOpenDialog;
    JvSelectDirectory1: TJvSelectDirectory;
    MainMenu1: TMainMenu;
    Archvo1: TMenuItem;
    AbrirDirectorio1: TMenuItem;
    GuardarImagen1: TMenuItem;
    N2: TMenuItem;
    Opciones1: TMenuItem;
    N3: TMenuItem;
    Salir1: TMenuItem;
    Ayuda1: TMenuItem;
    AcercadeDiscImage1: TMenuItem;
    Panel1: TPanel;
    Panel2: TPanel;
    Image1: TImage;
    N4: TMenuItem;
    AgregarImagenDeDisco1: TMenuItem;
    OpenPictureDialog1: TOpenPictureDialog;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    JvID3v21: TJvID3v2;
    Label8: TLabel;
    SaveDialog1: TJvSaveDialog;
    N1: TMenuItem;
    Nuevo1: TMenuItem;
    Panel3: TPanel;
    JvPlaylist1: TJvPlaylist;
    AyudaDicsImagev101: TMenuItem;
    N5: TMenuItem;
    procedure AbrirDirectorio1Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure GuardarImagen1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Nuevo1Click(Sender: TObject);
    procedure Opciones1Click(Sender: TObject);
    procedure AcercadeDiscImage1Click(Sender: TObject);
    procedure AyudaDicsImagev101Click(Sender: TObject);
    procedure Salir1Click(Sender: TObject);
  private
    { Private declarations }

  public
    { Public declarations }
  MiFichero: Tinifile;
  dir : String;
  procedure information(direccion:String);




  end;

var
  Form1: TForm1;
  Tamano:Int64;
  jpeg: TJPEGImage;
  Bitmap: TBitmap;
  PNG: TPNGObject;
implementation

uses Unit2, Unit3;

{$R *.dfm}

// ESTA FUNCION DETERMINA EL TAMAÑO DE LOS ARCHIVOS MP3 PARA CALCULAR
// EL TAMAÑO TOTAL DEL DIRECTORIO
function GetSizeOfFile(const Filename:string): Int64;
var Sr:TSearchRec;
begin
  try
    if FindFirst(FileName,faAnyFile,sr) <> 0 then
      raise Exception.Create('Archivo ' + FileName+' no encontrado');
      Result:=sr.FindData.nFileSizeHigh * maxdword + sr.Finddata.nFileSizeLow;
  finally
    FindClose(sr);
  end;
end;

//AQUI MUESTRO TODA LA INFORCACION DEL ALBUN COMO LO ES NOMBRE DEL ALBUM
//AUTOR, GENERO, AÑO Y TAMAÑO EN MG
procedure TForm1.information(direccion:String);
begin
  JvID3v21.Active:=false;
  JvID3v21.FileName:=direccion;
  JvID3v21.Active:=true;
  label4.Caption:=JvID3v21.Texts.Album;
  label5.Caption:=JvID3v21.Texts.LeadArtist.CommaText;
  label6.Caption:=JvID3v21.Texts.ContentType.CommaText;
  label7.Caption:=inttostr(JvID3v21.Texts.year);
  form2.Edit1.Text:=label4.Caption;
  form2.Edit2.Text:=label5.Caption;
  form2.Edit3.Text:=label6.Caption;
  form2.Edit4.Text:=label7.Caption;
end;

// AQUI AGREGO EL DIRECTORIO DONDE SE ENCUENTRA EL ALBUN DE MUSICA
procedure TForm1.AbrirDirectorio1Click(Sender: TObject);
var
resultado:TModalResult;
var
  TS:TStrings;
  i:Integer;
  //ESTA PARTE DE CODIGO LA SAQUE DEL FORO CLUBDELPHI Y ES PARA SACAR UNA LISTA DE LOS ARCHIVOS DE UN DIRECTORIO
  procedure ArchivosDirectorio(dir, mascara: string;var lista: TStrings; const soloNombres: boolean);
  var
    SR: TSearchRec;
  begin
        dir := IncludeTrailingPathDelimiter(dir);
        if FindFirst(dir + mascara, faAnyFile, SR) = 0 then
        begin
            //***
            information(dir+SR.Name);
            //***
                  repeat
                        if not soloNombres then
                          lista.Add(ExtractFileName(ChangeFileExt(dir + SR.Name, '')))
                        else
                        begin
                          lista.Add(dir + SR.Name);
                          Tamano:=Tamano+GetSizeOfFile(dir+SR.Name);
                        end;
                  until FindNext(SR) <> 0;
                 SysUtils.FindClose(SR);
                end;

     label8.Caption:=inttostr(Tamano div 1048576)+'  Mb';


          if (JvID3v21.Texts.Album ='')  or (JvID3v21.Texts.LeadArtist.CommaText='')  or (JvID3v21.Texts.ContentType.CommaText='')  or (JvID3v21.Texts.year=0) then
          begin

            resultado:= MessageDlg('¿ DicsImage 1.0 No No Encontro Toda La Informacio Del Album Desea Agregarla Manualmente  ?',mtConfirmation, [mbYes,mbCancel], 0);

                    if resultado = mryes then
                    begin
                     Form2.ShowModal;
                     Form2.PageControl1.ActivePageIndex:=0;
                    end;
           end;
     end;
   begin

   //AQUI CAPTURO EL DIRECTORIO ESCOGIDO POR EL USUARIO
   if JvSelectDirectory1.Execute then
      begin
             TS := TStringList.Create();
                try
                  ArchivosDirectorio(JvSelectDirectory1.Directory,'*.mp3', TS, True);

                        for i := 0 to (TS.Count - 1) do begin
                          TS.Strings[i] := ExtractFileName(TS.Strings[i]);
                        end;

                  JvPlaylist1.Items.Clear;
                  JvPlaylist1.Items.AddStrings(TS);
                  JvPlaylist1.ItemIndex := 0;
                finally
                   FreeAndNil(TS);
                end;
      end;

end;


// AQUI AGREGO LA CARATULA DEL ALBUM
procedure TForm1.N4Click(Sender: TObject);
begin
   if OpenPictureDialog1.Execute then
   Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
end;


//AQUI GUARDO LA IMGEN QUE CAPTURO DEL AREA CLIENTE DE MI APLICACION
//Y LE DOY LA OPCION QUE ME PERMITE ESCOGER ENTRE TRES TIPOS DE FIORMATO
//A LA HORA DE GUARDARLO
procedure TForm1.GuardarImagen1Click(Sender: TObject);
begin
  Bitmap := TBitmap.Create;
  jpeg   := TJPEGImage.Create;
  PNG := TPNGObject.Create;

        //capturo la imagen de mi form


       if SaveDialog1.Execute then
       begin
       
        Form1.Update;
        Application.ProcessMessages;

        Bitmap.Width := ClientWidth;
        Bitmap.Height := ClientHeight;
        Bitmap.Canvas.CopyRect(ClientRect, Canvas, ClientRect);


              try
                      //si el formato escogido es jpg
                      if SaveDialog1.FilterIndex =1 then begin
                        jpeg.Assign(Bitmap);
                        jpeg.CompressionQuality:=90; //25% de calidad
                        jpeg.Compress;
                        //guardamos la imagen en formato jpg
                        jpeg.SaveToFile(SaveDialog1.FileName+'.jpg');
                      end;

                      if SaveDialog1.FilterIndex =2 then begin
                       // si el formato escogido es bmp
                        Bitmap.SaveToFile(SaveDialog1.FileName+'.bmp');
                      end;

                      if SaveDialog1.FilterIndex =3 then begin

                        PNG.Assign(Bitmap);    //Convert data into png
                        PNG.SaveToFile(SaveDialog1.FileName+'.png');
                        
                      end;

              finally
                jpeg.Free;
                Bitmap.Free;
                PNG.Free;
              end;
       end;
end;


//AQUI ESTA EL EVENTO CUANDO SE CREA EL PROGRAMA, BUENO AQUI LO QUE HAGO ES
//BUSCAR EM MI ARCHIVO DE CONFIGURACION .INI EL TIPO DE LETRA Y COLORES DE
//MI APLICACION Y CARGO LA IMAGEN QUE TRAE POR DEFECTO EN LA PORTADA
procedure TForm1.FormCreate(Sender: TObject);
var
T_letra,C_letra,C_panel:string;
T_letra1,C_letra1,C_fondo:string;
begin
    dir := ExtractFilePath(ParamStr(0));
    Image1.Picture.LoadFromFile(dir+'Portada.bmp');

    if FileExists(dir+'\DicsImage_cfg.ini') then begin
     form1.MiFichero := Tinifile.create (form1.dir+'\DicsImage_cfg.ini');

     T_letra:=MiFichero.ReadString('OPC_Titulo', 'T_letra','');
     C_letra:=MiFichero.ReadString('OPC_Titulo', 'C_letra','');
     C_panel:=MiFichero.ReadString('OPC_Titulo', 'C_panel','');
     Form2.llenar_informacion(T_letra,C_letra,C_panel);//carga las propiedades del titulo

     T_letra1:=MiFichero.ReadString('OPC_Lista', 'T_letra','');
     C_letra1:=MiFichero.ReadString('OPC_Lista', 'C_letra','');
     C_fondo:=MiFichero.ReadString('OPC_Lista', 'C_fondo','');
     Form2.llenar_informacion2(T_letra1,C_letra1,C_fondo);//carga las propiedades de la lista
    end;
end;

//NUEVO PROYECTO DE MI APLICACION OSEA BORA TODO
procedure TForm1.Nuevo1Click(Sender: TObject);
begin

    Image1.Picture.LoadFromFile(dir+'Portada.bmp');
    label4.Caption:='-----';
    label5.Caption:='-----';
    label6.Caption:='-----';
    label7.Caption:='-----';
    label8.Caption:='-----';
    JvPlaylist1.Items.Clear;
    JvPlaylist1.Items.Add('Titulo De Canciones De Este Album');

end;

//AQUI LLAMO A LA SEGUNDA FORMA DONDE TENGO LAS OPCIONEC
procedure TForm1.Opciones1Click(Sender: TObject);
begin
form2.JvFontComboBox1.Text:=form1.Label1.Font.Name;
form2.JvColorComboBox1.ColorValue:=form1.Label1.Font.Color;
form2.JvColorComboBox2.ColorValue:=form1.Color;

form2.JvFontComboBox2.Text:=form1.JvPlaylist1.Font.Name;
form2.JvColorComboBox3.ColorValue:=form1.JvPlaylist1.Font.Color;
form2.JvColorComboBox4.ColorValue:=form1.JvPlaylist1.Color;

form2.ShowModal;
end;

//MUESTRO EL ACERCA DE
procedure TForm1.AcercadeDiscImage1Click(Sender: TObject);
begin
  form3.ShowModal;
end;

//EJECUTO EL MANUAL DE AYUDA
procedure TForm1.AyudaDicsImagev101Click(Sender: TObject);
begin
  if FileExists(dir+'\ayuda.pdf') then
  ShellExecute(Handle,'open',pchar(dir+'ayuda.pdf'), nil, nil,SW_NORMAL);
end;

//SALGO DEL PROGRAMA
procedure TForm1.Salir1Click(Sender: TObject);
begin
  close;
end;

end.

aqui esta lo que contiene la segunda parte donde estan las funciones que se llaman en el foncreate de la forma primcipal

Código Delphi [-]
unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, JvDialogs, JvColorCombo, JvExStdCtrls,
  JvCombobox,IniFiles;

type
  TForm2 = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Button1: TButton;
    Button2: TButton;
    GroupBox2: TGroupBox;
    Label5: TLabel;
    Label7: TLabel;
    JvColorComboBox1: TJvColorComboBox;
    JvFontComboBox1: TJvFontComboBox;
    Label8: TLabel;
    JvColorComboBox2: TJvColorComboBox;
    Button5: TButton;
    Button4: TButton;
    TabSheet3: TTabSheet;
    GroupBox3: TGroupBox;
    Label6: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    JvColorComboBox3: TJvColorComboBox;
    JvFontComboBox2: TJvFontComboBox;
    JvColorComboBox4: TJvColorComboBox;
    Button6: TButton;
    Button7: TButton;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure Button7Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure llenar_informacion(T_letra: string;color1,color2:string);
    procedure llenar_informacion2(T_letra: string;color1,color2:string);
  end;

var
  Form2: TForm2;

implementation

uses Unit1;

{$R *.dfm}

procedure TForm2.llenar_informacion(T_letra: string;color1,color2:string);
begin
    form1.Label1.Font.Name:=T_letra;
    form1.Label1.Font.Color:=StringToColor(color1);
    form1.Label2.Font.Name:=T_letra;
    form1.Label2.Font.Color:=StringToColor(color1);
    form1.Label3.Font.Name:=T_letra;
    form1.Label3.Font.Color:=StringToColor(color1);
    form1.Label4.Font.Name:=T_letra;
    form1.Label4.Font.Color:=StringToColor(color1);
    form1.Label5.Font.Name:=T_letra;
    form1.Label5.Font.Color:=StringToColor(color1);
    form1.Label6.Font.Name:=T_letra;
    form1.Label6.Font.Color:=StringToColor(color1);
    form1.Label7.Font.Name:=T_letra;
    form1.Label7.Font.Color:=StringToColor(color1);
    form1.Label8.Font.Name:=T_letra;
    form1.Label8.Font.Color:=StringToColor(color1);
    form1.Label9.Font.Name:=T_letra;
    form1.Label9.Font.Color:=StringToColor(color1);
    form1.Label10.Font.Name:=T_letra;
    form1.Label10.Font.Color:=StringToColor(color1);

    form1.Panel1.Color:=StringToColor(color2);
    form1.Color:=StringToColor(color2);

end;

procedure TForm2.llenar_informacion2(T_letra: string;color1,color2:string);
begin
    form1.JvPlaylist1.Font.Name:=T_letra;
    form1.JvPlaylist1.Font.Color:=StringToColor(color1);
    form1.JvPlaylist1.Color:=StringToColor(color2);
    form1.panel3.Color:=StringToColor(color2);
end;



procedure TForm2.Button2Click(Sender: TObject);
begin
    Form2.PageControl1.ActivePageIndex:=0;
    form2.Close;
end;

procedure TForm2.Button1Click(Sender: TObject);
begin
    form1.label4.Caption:=Edit1.Text;
    form1.label5.Caption:=Edit2.Text;
    form1.label6.Caption:=Edit3.Text;
    form1.label7.Caption:=Edit4.Text;
    form2.Close;
end;

procedure TForm2.Button5Click(Sender: TObject);
begin
    llenar_informacion(JvFontComboBox1.Text,ColorToString(JvColorComboBox1.ColorValue),ColorToString(JvC  olorComboBox2.ColorValue));


     form1.MiFichero := Tinifile.create (form1.dir+'\DicsImage_cfg.ini');
     form1.MiFichero.WriteString('OPC_Titulo', 'T_letra', Trim(JvFontComboBox1.Text));
     form1.MiFichero.WriteString('OPC_Titulo', 'C_letra', Trim(ColorToString(JvColorComboBox1.ColorValue)));
     form1.MiFichero.WriteString('OPC_Titulo', 'C_panel', Trim(ColorToString(JvColorComboBox2.ColorValue)));

     form2.Close;
end;

procedure TForm2.Button4Click(Sender: TObject);
begin
  Form2.PageControl1.ActivePageIndex:=0;
  form2.Close;
end;

procedure TForm2.FormShow(Sender: TObject);
begin

end;

procedure TForm2.Button7Click(Sender: TObject);
begin
    llenar_informacion2(JvFontComboBox2.Text,ColorToString(JvColorComboBox3.ColorValue),ColorToString(Jv  ColorComboBox4.ColorValue));

     form1.MiFichero := Tinifile.create (form1.dir+'\DicsImage_cfg.ini');
     form1.MiFichero.WriteString('OPC_Lista', 'T_letra', Trim(JvFontComboBox2.Text));
     form1.MiFichero.WriteString('OPC_Lista', 'C_letra', Trim(ColorToString(JvColorComboBox3.ColorValue)));
     form1.MiFichero.WriteString('OPC_Lista', 'C_fondo', Trim(ColorToString(JvColorComboBox4.ColorValue)));

    form2.Close;
end;

end.

Bueno aqui les dejo todo el codigo de mi aplicacion esta en subido en rapidshare

http://rapidshare.com/files/95383384..._DicsImage.rar

y aqui el instalador de mi aplicacion que tambien esta rapidshare, el instaldor esta hecho con Inno Setup Compiler v 5.2.2 este fue el que no funciona en otras computaroras execto lamia jeje

http://www.linkdirecto.com/noref.php...0____setup.exe

bueno les recuerdo para que les funcione bien utilizo los siguientes paquetes de compoenetes y delphi 7:

JEDI VCL o mas bien JVCL 3.0 de la cual utilizo los siguientes comopentes

1. JvID3v21
2. JvSelectDirectory
3. JvPlaylist

y tambien utilizo un componenete que me permite pasar imagenes a formato png ese instalador lo incluyo aqui en codigo,
bueno Neftali me estoy bajando el programa que me mencionas, bueno espero que ser claro saludos de antemano gulder.

[[eduarcol]]

Llenar_Informacion y Llenar_Informacion2 hacen referencia a alguna ruta?

el DPR lo modificastes?

[gulder]

eduarcol gracias por responder Llenar_Informacion y Llenar_Informacion2 hacen referencia a dos funciones que estan en la form2 se me olvido ya la coloco enseguida en el codigo, encuanto al DPR no te entiendo men saludos

[[eduarcol]]

el DPR es el archivo del proyecto, dale a (CTRL + F12 ) y en la lista que te sale debe aparecer uno que se llama como el proyecto abrelo y colocalo tambien.

[gulder]

bueno eduarcol ya busque lo que me dices y aparece una lista qe contiene lo siguiente:
1. El nombre de mi projecto para este caso project1
2. la forma principal Unit1
2. y las otras de formas Unit2, Unit3

creao que se encuentra bien no saludos gulder