format an active drive (+500)

Hi,
how i can format my Active partition which contain windows folder! ?
this is like to that we say everybody want to kill her/him self! so i think there is a way to format an active drive from itself!

everybody can help me please
Thanks you very much.

regards,
Amir
LVL 6
Amir AzhdariAsked:
Who is Participating?
 
moduloConnect With a Mentor Commented:
Closed, 500 points refunded.

modulo
Community Support Moderator
Experts Exchange
0
 
mokuleCommented:
Are we suppose to test it ? :)
0
 
Ivanov_GCommented:

   Mokule, you have quite destructive ideas ... :)))))))

   Anyway, I don't think this is possible.

   One possible solution :))))

   1) preare virtual RAM drive with system files (file Win98 start-up disk)
   2) replace the bootsector to load your program
   3) execute "format c:\"

   Enjoy

   
0
Free Tool: Port Scanner

Check which ports are open to the outside world. Helps make sure that your firewall rules are working as intended.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

 
Amir AzhdariAuthor Commented:
Ivanov_G
think that you created a huge Application and you wanna protect that from another copies
so you can't restart the computer and give a message to user that want to insert startup-98 disk :))
'Please <-- insert win98 Startup Disk , i want to damage track0!!!':))

but i'm sure everything is possible :)

standing by for comments...
0
 
Amir AzhdariAuthor Commented:
i'll increase the points to 1500

not bad to lose all your data and get (1500 points = 6000 expert points ) :))

Regards
Azhdari
0
 
Ivanov_GCommented:

   Well, you try to erase from here FAT Cyl 0 Side 1 Sec 0  offset 0x27 - to erase the FAT .... but for the active partition ... I doubt you can make it.

   Routine for Drive Format :
   ---------------------------------------------
function SHFormatDrive(hWnd : HWND;
                       Drive : Word;
                       fmtID : Word;
                       Options : Word) : Longint
stdcall; external 'Shell32.dll' name 'SHFormatDrive';

procedure TForm1.Button4Click(Sender: TObject);
const
  SHFMT_DRV_A = 0;
  SHFMT_DRV_B = 1;
  SHFMT_ID_DEFAULT = $FFFF;
  SHFMT_OPT_QUICKFORMAT = 0;
  SHFMT_OPT_FULLFORMAT = 1;
  SHFMT_OPT_SYSONLY = 2;
  SHFMT_ERROR = -1;
  SHFMT_CANCEL = -2;
  SHFMT_NOFORMAT = -3;
var
  FmtRes : LongInt;
begin
 try
  FmtRes:=ShFormatDrive(Handle,
                        SHFMT_DRV_A,
                        SHFMT_ID_DEFAULT,
                        SHFMT_OPT_QUICKFORMAT);
  case FmtRes of
   SHFMT_ERROR:
    ShowMessage('Error formatting the drive');
   SHFMT_CANCEL:
    ShowMessage('User canceled formatting the drive');
   SHFMT_NOFORMAT:
    ShowMessage('Drive is not formatable')
  else
    ShowMessage('Disk has been formatted');
  end;
 except
  ShowMessage('Error occurred!')
 end;
end;

  --------------------------------------------------------
  and a link :
 
   http://www.howtodothings.com/showarticle.asp?article=20

  Anyway, I don't think you will be able to format the active partition ....
 
0
 
Ferruccio AccalaiSenior developer, analyst and customer assistance Commented:
Just to say that i won't give an answer to this question, because the intention is to start an auto-formatting hard-disk partitions....To protect your huge Application from copying you should move your ideas to a Hardware Key protection...I never agree with a  formatting to prevent program duplication....
0
 
Amir AzhdariAuthor Commented:
Ivanov_G
it doesen't work for the active partition. shell32.dll isn't contain routin that can do that.
0
 
Ivanov_GCommented:

   I told you .... you can not delete the active partition .... It seems really impossible ....
0
 
robert_marquardtCommented:
As a protection for a huge program it is also illegal.
You may destroy valuable data.
0
 
Ferruccio AccalaiSenior developer, analyst and customer assistance Commented:
Ok for me to PAQ adding an UPPERCASE NOTICE that this is a bad and somewhere ILLEGAL way to develop application protections.

F68 ;-/
0
 
Ivanov_GCommented:

  sure.
0
 
robert_marquardtCommented:
Agree.
0
 
Amir AzhdariAuthor Commented:
ok , sorry
thanks for all the comments

kretzschmar
delete the question and refund the points please
thanks

AmirAzhdari
0
 
Ferruccio AccalaiSenior developer, analyst and customer assistance Commented:
I agree with point refunding, but not so much on deleting, because, as the Delphi Programming  P.E. also said, it'd be a good advice for future askers with the same intention....
So my suggestion is to PAQ and refund with specified comment by the Moderator about the Member agreement violation of this question...
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.