[تمرين] الكل يسأل و الكل يجيب

[STRELiTZIA]

هذا :

كود :

\[COLOR=red]??[/COLOR]\C:\Documents and Settings\Utilisateur\Bureau\DelFileOnReboot\Test.txt

هل تعاملت من قبل مع مسارات الملفات انطلاقا من Driver


اليك مثال حصري لا وجود له في النت اطلاقا من انتاج Delphi4Arab يمكنك تجربته :

PHP كود :

unit driver;
 
interface
 
uses Windows, nt_status, native, hal, fcall, macros, ntoskrnl;
 
function _DriverEntry(DriverObject: PDriverObject; RegistryPath: PUnicodeString): NTSTATUS; stdcall;
 
implementation
 
procedure DriverUnload(pDriverObject: PDriverObject); stdcall;
begin
  DbgPrint('Test Driver :: Unloaded');
end;
 
function _DriverEntry(DriverObject: PDriverObject; RegistryPath: PUnicodeString): NTSTATUS; stdcall;
var UNICODESTRING: UNICODE_STRING;
  obj: OBJECT_ATTRIBUTES;
 
begin
 
  DbgPrint('Test Driver :: Loaded');
  DriverObject^.DriverUnload := @DriverUnload;
 
 
  RtlInitUnicodeString(UNICODESTRING, '\??\C:\test.exe');
  InitializeObjectAttributes(obj, @UNICODESTRING, OBJ_CASE_INSENSITIVE + OBJ_KERNEL_HANDLE, 0, nil);
 
  Result := ZwDeleteFile(@obj);
 
 
  if Result = STATUS_SUCCESS then
  begin
    DbgPrint('File deleted sucessfully Result:0x%.8X', Result); 
  end else
  begin
    DbgPrint('Fail to Delete File Result:0x%.8X', Result); 
    DbgPrint('Object name :%wZ',  obj.ObjectName); 
  end;
  Result := STATUS_SUCCESS;
 
end;
 
end.