Experts Exchange connects you with the people and services you need so you can get back to work.

How can I Check my application Is running from CD

I Want to enforce my app. to absolutely run from CD. How can I do that?

khalil_moghaddam

Asked: 2004-04-04

Advertise Here

Delphi

1 Solution

LVL 17

mokuleCommented: 2004-04-04

What about this?

procedure TForm1.FormActivate(Sender: TObject);
begin
if GetDriveType(PChar(ExtractFileDrive(Paramstr(0)))) <> DRIVE_CDROM then
Close;
end;

LVL 17

mokuleCommented: 2004-04-04

Or if You want to do it in an earlier application creation state.

program Project1;

uses
Forms,Windows, Sysutils,
Unit1 in 'Unit1.pas' {Form1};

{$R *.res}

begin
Application.Initialize;
if GetDriveType(PChar(ExtractFileDrive(Paramstr(0)))) <> DRIVE_CDROM then
begin
Application.MessageBox('You must run this program from CD','Error',MB_OK);
end
else
Application.CreateForm(TForm1, Form1);
Application.Run;
end.

LVL 1

khalil_moghaddamAuthor Commented: 2004-04-04

Thanks a lot, But I think it can't recognize Virtual CD drive. Is there any way to prohibit using virtual-cd drive?

Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

How can I Check my application Is running from CD

Join & Write a Comment Already a member? Login.

Featured Post