Solved

Access copy program Windows

Posted on 1999-01-24
6
150 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
Free Tool: Postgres Monitoring System

A PHP and Perl based system to collect and display usage statistics from PostgreSQL databases.

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.

 

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

Networking for the Cloud Era

Join Microsoft and Riverbed for a discussion and demonstration of enhancements to SteelConnect:
-One-click orchestration and cloud connectivity in Azure environments
-Tight integration of SD-WAN and WAN optimization capabilities
-Scalability and resiliency equal to a data center

Question has a verified solution.

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

A lot of questions regard threads in Delphi.   One of the more specific questions is how to show progress of the thread.   Updating a progressbar from inside a thread is a mistake. A solution to this would be to send a synchronized message to the…
The uses clause is one of those things that just tends to grow and grow. Most of the time this is in the main form, as it's from this form that all others are called. If you have a big application (including many forms), the uses clause in the in…
This video shows how to use Hyena, from SystemTools Software, to bulk import 100 user accounts from an external text file. View in 1080p for best video quality.

861 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