Mi prograsma no funciona en otras maquinas

[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

[[eduarcol]]

Abre el que dice project1, y copianos el codigo, igual que el codigo de las dos funciones de llenar, por ahi deben venir los tiros

[gulder]

eduarcol aqui esta el del projec me imagino que esto lo que me pides

Código Delphi [-]
program Project1;

uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {Form2},
  Unit3 in 'Unit3.pas' {Form3};

{$R *.res}

begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TForm2, Form2);
  Application.CreateForm(TForm3, Form3);
  Application.Run;
end.

bueno y en cuanto a las dos funciones de llenas ya estaban pero aqui ban otravez

Código Delphi [-]

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;

bueno aqui esta lo que me pides saludos

[[eduarcol]]

pues despues de haber revisado todo lo que tienes, me atrevo a decir que el problema puede estar que ExtractFilePath devuelve la ruta con un '\' al final, y tu lo sumas a la busqueda de nuevo, prueba con ExtractFileDir y asegurate que todas las busquedas tengan el '\' antes del nombre del archivo

[gulder]

Bueno foro ya encontre el error que me habia mortificado toda la mañana, resulta que entre los componenetes que yo utilice y mas especificamente el JvID3v21 cuando empece a realizar el programa le cargue un archivo en la propiedad filename eso es tiempo de diseño, y se me habia olvidado quitarcela, entonces como en mi pc estaba el archivo que le habia mandado en la propiedad filename no me arrojaba el error se lo quite le mande el programa a un amigo y listerine funciono a la perfeccion jejej gracias dios, bueno haora me toca agradecer a todos aquellos foristas que pasaro ayudandome como lo son:

ixMike
Neftali
eduarcol
Ferrari
Lepe

hombre gracias por todo ha y si quieren descargar el instalador aqui esta:

Descarga rapidshare
http://rapidshare.com/files/95415956...0____setup.exe

Descarga megaupload
http://www.megaupload.com/?d=A2CU7HJA

salu2 gulder