[BuRtOn]

Exacto egostar, jejejeje, si no existe el archivo pues no deja iniciar la aplicaicon....y otras cositas mas que agregue....peor que no profundisare, para no hacer extenso el tema...lo que me quieres decir es algo asi:

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 )+'D:\Nueva carpeta\Gyros\Id.dos '); Rewrite(Id);Writeln(Id,edtId.Text);closeFile(Id);end;

O como le asigno a Id que es de tipo TextFile la ruta, como tu dices ??...eso es todo lo que quiero hacer....