Solved

format an active drive (+500)

Posted on 2004-04-23
19
624 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
 
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
Highfive + Dolby Voice = No More Audio Complaints!

Poor audio quality is one of the top reasons people don’t use video conferencing. Get the crispest, clearest audio powered by Dolby Voice in every meeting. Highfive and Dolby Voice deliver the best video conferencing and audio experience for every meeting and every room.

 
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

Highfive Gives IT Their Time Back

Highfive is so simple that setting up every meeting room takes just minutes and every employee will be able to start or join a call from any room with ease. Never be called into a meeting just to get it started again. This is how video conferencing should work!

Join & Write a Comment

Suggested Solutions

Title # Comments Views Activity
Delphi XE7 Rest Client 2 178
APK file name 7 64
Delphi with SQL Natvie Client 15 75
Delphi component that can load a DLL in design time? 8 46
In this tutorial I will show you how to use the Windows Speech API in Delphi. I will only cover basic functions such as text to speech and controlling the speed of the speech. SAPI Installation First you need to install the SAPI type library, th…
Introduction Raise your hands if you were as upset with FireMonkey as I was when I discovered that there was no TListview.  I use TListView in almost all of my applications I've written, and I was not going to compromise by resorting to TStringGrid…
This video gives you a great overview about bandwidth monitoring with SNMP and WMI with our network monitoring solution PRTG Network Monitor (https://www.paessler.com/prtg). If you're looking for how to monitor bandwidth using netflow or packet s…
This demo shows you how to set up the containerized NetScaler CPX with NetScaler Management and Analytics System in a non-routable Mesos/Marathon environment for use with Micro-Services applications.

746 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

Need Help in Real-Time?

Connect with top rated Experts

10 Experts available now in Live!

Get 1:1 Help Now