<div>
Or if You want to do it in an earlier application creation state.<br />
<br />
program Project1;<br />
<br />
uses<br />
&nbsp; Forms,Windows, Sysutils,<br />
&nbsp; Unit1 in 'Unit1.pas' {Form1};<br />
<br />
{$R *.res}<br />
<br />
begin<br />
&nbsp; Application.Initialize;<br />
&nbsp; if GetDriveType(PChar(Extract<wbr />FileDrive(<wbr />Paramstr(0<wbr />)))) &lt;&gt;&nbsp;DRIVE_CDROM then<br />
&nbsp; &nbsp; begin<br />
&nbsp; &nbsp; Application.MessageBox('Yo<wbr />u must run this program from CD','Error',MB_OK);<br />
&nbsp; &nbsp; end<br />
&nbsp; else<br />
&nbsp; &nbsp; Application.CreateForm(TFo<wbr />rm1, Form1);<br />
&nbsp; Application.Run;<br />
end.<br />

</div>


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.


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


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

<div>
<div class="content wysiwyg-content">
I Want to enforce my app. to absolutely run from CD. How can I do that?
</div>
</div>


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

How can I Check my application Is running from CD

Delphi is the most powerful Object Pascal IDE and component library for cross-platform Native App Development with flexible Cloud services and broad IoT connectivity. It provides powerful VCL controls for Windows 10 and enables FMX development for Windows, Mac and Mobile. Delphi is your choice for ultrafast Enterprise Strong Development™. Look for increased memory for large projects, extended multi-monitor support, improved Object Inspector and much more. Delphi is 5x faster for development and deployment across multiple desktop, mobile, cloud and database platforms including 32-bit and 64-bit Windows 10.