[実行ファイル名を取得する]

実行ファイル名と、フォルダ名を表示します。

program tips0006;
{$APPTYPE CONSOLE}
uses  Windows, SysUtils;
var
  strFolderName: string;   //フォルダ名
  strExeName   : string;   //実行ファイル名
begin
  strFolderName:=ExtractFilePath(ParamStr(0));
  strExeName:=StringReplace(ParamStr(0),ExtractFilePath(ParamStr(0)),'', [ rfReplaceAll ]);
  writeLn('フォルダ名：'+ strFolderName);
  writeLn('実行ファイル名：'+ strExeName);
end.

dcc32 tips0006.pas 
tips0006.exe > tips0006.txt
pause

フォルダ名：C:\Documents and Settings\2198\My Documents\delphi tips\
実行ファイル名：tips0006.exe