• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 157
  • Last Modified:

Access copy program Windows

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
Vincentg
Asked:
Vincentg
  • 4
  • 2
1 Solution
 
heathprovostCommented:
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
 
VincentgAuthor Commented:
Heath,

Thanks a lot :)

Vincent
0
 
VincentgAuthor Commented:
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
Industry Leaders: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

 
VincentgAuthor Commented:
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
 
heathprovostCommented:
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
 
VincentgAuthor Commented:
Thanks again, Heath

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

Thanks again.
Vincent
0

Featured Post

Concerto's Cloud Advisory Services

Want to avoid the missteps to gaining all the benefits of the cloud? Learn more about the different assessment options from our Cloud Advisory team.

  • 4
  • 2
Tackle projects and never again get stuck behind a technical roadblock.
Join Now