Festplatte überwachen

[brechi]

Nur mit Delphi gehts nicht, aber in Pascal mit Delphi und VisualStudio installeirt schon. (bzw einfach die richtigen Compiler)
Nico ging ja nur davon aus, dass es mit Delphi alleine nicht geht, sollte er gemeint haben, dass man in Pascal keinen Treiber programmieren kann hat er halt unrecht.

Delphi-Quellcode:

//Here the simplest system driver example on pascal (must be compiled with Delphi 3 compiler)

unit Driver;

interface

function DriverEntry(DriverObject, RegistryPath: pointer): integer; stdcall;

implementation

function DbgPrint(Str: PChar): cardinal; cdecl; external 'ntoskrnl.exe' name '_DbgPrint';

function DriverEntry(DriverObject, RegistryPath: pointer): integer;
begin
  DbgPrint('Hello World!');
  Result := -1;
end;

end.

//And make file to compile and link this
//dcc32.exe -JP -$A-,B-,C-,D-,G-,H-,I-,J-,L-,M-,O+,P-,Q-,R-,T-,U-,V-,W+,X+,Y - Driver.pas

//linker from MSVC

//link.exe /DRIVER /ALIGN:32 /BASE:0x10000 /SUBSYSTEM:NATIVE /FORCE:UNRESOLVED /ENTRY:DriverEntry$qqspvt1 Driver.obj ntoskrnl.lib  /out:Driver.sys

Hier sogar ein Delphi Driver Developement Kit
http://hxdef.org/download/DDDK004.zip

Auch wenn da einige Tricks/Hacks bei sind, funktionieren sollte es ^^