Eraser API headers

Do you know Eraser? It's a tool that allows you to remove sensitive files in a really persistent way that should be unrecoverable, using mechanisms defined even by the U.S. Department of Defense, as well as security experts.

Eraser offers a library that allows other software to use it. This software in itself needs to be GPL'ed as well according to their source page, but this requirement is not mentioned during installation or on the download page itself. So the situation is a bit unclear. I've written a small Pascal file that defines the links to Eraser and implements a mini class to use, and am publishing it here now in case some GPL software wants to use it: snlAPIEraser.pas.

Usage should be easy:

   GEraser := TEraser.Create;
   if GEraser.IsAvailable then begin
      GEraser.EraserInit;
   end;
   // app code
   if GEraser.IsAvailable then begin
      Result := GEraser.EraserRemoveFile(Filename);
   end;
   // app code
   if GEraser.IsAvailable then begin
      GEraser.EraserEnd;
   end;
   GEraser.Free;

Please remember, Eraser is GPL'ed, honor that!