Menghapus Folder autorun.inf buatan SmadAV dengan Delphi

Berikut merupakan salah satu cara menghapus folder autorun.inf buatan SamadAV menggunakan Delphi.

Uses ShellApi;

function HapusFolder(NamaFolder:String):Boolean;
var
 T: TSHFileOpStruct;
begin
  Result := False;
  FillChar(T, SizeOf(T), #0);
  with T do
  begin
    Wnd := 0;
    wFunc := FO_DELETE;
    pFrom := PChar('\\?\' + NamaFolder + #0);
    fFlags := FOF_ALLOWUNDO or FOF_SILENT or FOF_NOCONFIRMATION;
  end;
  if (SHFileOperation(T) = 0) then
    Result := True;
end;

procedure TForm1.Button1Click(Sender: TObject);
var S: String;
begin
  MessageBeep(mb_iconExclamation);
  S := 'Z:\autorun.inf'; { path dari folder autorun.inf }
  if DirectoryExists(S) then
    begin
      if SetFileAttributes(PChar(S),FILE_ATTRIBUTE_NORMAL) then
        begin
        if HapusFolder(S) then
          MessageDlg('SUKSES menghapus folder '+S,mtInformation,[mbOK],0)
        else
          MessageDlg('GAGAL menghapus folder '+S,mtInformation,[mbOK],0);
        end;
    end
  else
    MessageDlg('Folder '+S+' tidak ditemukan!',mtError,[mbOK],0);
end;

Happy Coding ^^

Note:
Only for Educational Purpose!