Solved

Access copy program Windows

Posted on 1999-01-24
6
149 Views
Last Modified: 2012-05-04
Hello,

When I am in My Computer(Win95/98) and rightclick the A:
and then click copy disk there is a form showing.
Who can tell me how to access this program from delphi?

Thanks,
Vincent
0
Comment
Question by:Vincentg
  • 4
  • 2
6 Comments
 
LVL 5

Accepted Solution

by:
heathprovost earned 10 total points
ID: 1363051
Place a button on a form and copy this over the onclick event

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShellExecute(Form1.Handle, nil, 'rundll32.exe', 'diskcopy.dll,DiskCopyRunDll', nil, SW_SHOWNORMAL);
end;

This will execute it, however the dialog does not check the readiness of any removable drives until a copy operation is started (This may or may not be what you want).

Hope this helps

Heath  
0
 

Author Comment

by:Vincentg
ID: 1363052
Heath,

Thanks a lot :)

Vincent
0
 

Author Comment

by:Vincentg
ID: 1363053
Heath,

Can you also tell me how this works with the format option..
I found it in shell.dll but I don't know how to execute it.

Thanks,
Vincent


0
Three Reasons Why Backup is Strategic

Backup is strategic to your business because your data is strategic to your business. Without backup, your business will fail. This white paper explains why it is vital for you to design and immediately execute a backup strategy to protect 100 percent of your data.

 

Author Comment

by:Vincentg
ID: 1363054
Heath,

Can you also tell me how this works with the format option..
I found it in shell.dll but I don't know how to execute it.

Thanks,
Vincent


0
 
LVL 5

Expert Comment

by:heathprovost
ID: 1363055
Sure, it is like this

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShellExecute(Form1.Handle, nil, 'rundll32.exe', 'shell32.dll, SHFormatDrive', nil, SW_SHOWNORMAL);
end;

No problem

Heath
0
 

Author Comment

by:Vincentg
ID: 1363056
Thanks again, Heath

I tried it with shell.dll and that didn't work.

Thanks again.
Vincent
0

Featured Post

Master Your Team's Linux and Cloud Stack

Come see why top tech companies like Mailchimp and Media Temple use Linux Academy to build their employee training programs.

Question has a verified solution.

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

Suggested Solutions

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…
Hello everybody This Article will show you how to validate number with TEdit control, What's the TEdit control? TEdit is a standard Windows edit control on a form, it allows to user to write, read and copy/paste single line of text. Usua…
In a recent question (https://www.experts-exchange.com/questions/28997919/Pagination-in-Adobe-Acrobat.html) here at Experts Exchange, a member asked how to add page numbers to a PDF file using Adobe Acrobat XI Pro. This short video Micro Tutorial sh…
Email security requires an ever evolving service that stays up to date with counter-evolving threats. The Email Laundry perform Research and Development to ensure their email security service evolves faster than cyber criminals. We apply our Threat…

810 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