program Project1;<br><br>uses<br> Windows,<br> Messages,<br> SysUtils,<br> Variants,<br> Classes,<br> Graphics,<br> Controls,<br> Forms,<br> Dialogs,<br> StdCtrls;<br><br>{$R *.res}<br><br>begin<br> Application.Initialize;<br> Application.Run;<br> ShowMessage(ExtractFileName(ParamStr(0)));<br>end.<br>