[BuRtOn]

Saludos delphius, gracias por tu respuesta, si amigo trabaje la creacion de ese archivo de esa forma primitiva, por que solo pude leer esta mañana la forma de como crear archivos, y ese fue el mas sencillo, por que no me queda nada de tiempo.....Te agardecerias si tienes algun manual para manejar y crear los TiniFile o Tregisty que me dices, no se que tanto cambie el codigo a lo que yo tengo, si utilizo esa clase de archivos, no los utilice por que aun no encuentro un buen manual, y como te digo el tiempo esta en contra mia....aun asi no sabes como puedo darle la ruta a este archivo:

Código Delphi [-]
procedure TfrmSeriales.btnIdClick(Sender: TObject);var Id: TextFile;begin //Llamando la funcion en el text del editedtId.Text:=GetVolumeID('C'); //Crear ArchivoAssignFile( Id, ExtractFilePath( Application.ExeName ) + 'Id.dos' );Rewrite(Id);Writeln(Id,edtId.Text);closeFile(Id);end;

Agardezco tu ayuda delphius.gracias...