Saludos amigos, miren tengo elaborado el siguiente archivo:
Código Delphi
[-]
procedure TfrmSeriales.btnIdClick(Sender: TObject);
var Id: TextFile;
begin
edtId.Text:=GetVolumeID('C');
AssignFile( Id, ExtractFilePath( Application.ExeName ) + 'Id.dos' );
Rewrite(Id);
Writeln(Id,edtId.Text);
closeFile(Id);
end;
El hecho es que el archivo se crea por defecto en la carpeta donde se creo la aplicacion, pero necesito que no se genere ahi, si no en una carpeta especifica....alguien me podria colaborar en ese procedimiento, muchas gracias por su tiempo prestado.....