Solved

format an active drive (+500)

Posted on 2004-04-23
19
638 Views
Last Modified: 2006-11-17
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
0
Comment
Question by:Amir Azhdari
  • 4
  • 4
  • 3
  • +3
19 Comments
 
LVL 17

Expert Comment

by:mokule
ID: 10899598
Are we suppose to test it ? :)
0
 
LVL 12

Expert Comment

by:Ivanov_G
ID: 10899653

   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
 
LVL 6

Author Comment

by:Amir Azhdari
ID: 10900086
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
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.

 
LVL 6

Author Comment

by:Amir Azhdari
ID: 10900234
i'll increase the points to 1500

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

Regards
Azhdari
0
 
LVL 12

Expert Comment

by:Ivanov_G
ID: 10900346

   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
 
LVL 22

Expert Comment

by:Ferruccio Accalai
ID: 10900580
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
 
LVL 6

Author Comment

by:Amir Azhdari
ID: 10901994
Ivanov_G
it doesen't work for the active partition. shell32.dll isn't contain routin that can do that.
0
 
LVL 12

Expert Comment

by:Ivanov_G
ID: 10902317

   I told you .... you can not delete the active partition .... It seems really impossible ....
0
 
LVL 11

Expert Comment

by:robert_marquardt
ID: 10906209
As a protection for a huge program it is also illegal.
You may destroy valuable data.
0
 
LVL 22

Expert Comment

by:Ferruccio Accalai
ID: 10917318
Ok for me to PAQ adding an UPPERCASE NOTICE that this is a bad and somewhere ILLEGAL way to develop application protections.

F68 ;-/
0
 
LVL 12

Expert Comment

by:Ivanov_G
ID: 10917345

  sure.
0
 
LVL 11

Expert Comment

by:robert_marquardt
ID: 10918105
Agree.
0
 
LVL 6

Author Comment

by:Amir Azhdari
ID: 10920212
ok , sorry
thanks for all the comments

kretzschmar
delete the question and refund the points please
thanks

AmirAzhdari
0
 
LVL 22

Expert Comment

by:Ferruccio Accalai
ID: 10927736
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
 

Accepted Solution

by:
modulo earned 0 total points
ID: 10966952
Closed, 500 points refunded.

modulo
Community Support Moderator
Experts Exchange
0

Featured Post

Announcing the Most Valuable Experts of 2016

MVEs are more concerned with the satisfaction of those they help than with the considerable points they can earn. They are the types of people you feel privileged to call colleagues. Join us in honoring this amazing group of Experts.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

Title # Comments Views Activity
Machine not responding during CopyFile() 3 104
Delphi application Soap connection 5 121
Multi-layered image in FireMonkey 9 49
FMX TEdit KeyUp handler detecting  "enter" key 4 14
Objective: - This article will help user in how to convert their numeric value become words. How to use 1. You can copy this code in your Unit as function 2. than you can perform your function by type this code The Code   (CODE) The Im…
Introduction The parallel port is a very commonly known port, it was widely used to connect a printer to the PC, if you look at the back of your computer, for those who don't have newer computers, there will be a port with 25 pins and a small print…
With Secure Portal Encryption, the recipient is sent a link to their email address directing them to the email laundry delivery page. From there, the recipient will be required to enter a user name and password to enter the page. Once the recipient …

829 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question