Form을 포함한 DLL을 자주 만들어서 쓰는데, 현재 Form 내에서

자신의 DLL 이름을 알아낼 필요가 가끔 있습니다.

그럴 땐 아래의 코드를 사용해보세요.

-- 이하 코드 --

function TForm1.GetDLLName: String;
var
  FileName: PChar;
  HDLL: HModule;
begin
  GetMem(FileName, MAX_PATH+1);
  try
    HDLL := FindClassHInstance(Self.ClassType);
    GetModuleFileName(HDLL, FileName, MAX_PATH);
    Result := ExtractFileName(String(FileName));
  finally
    FreeMem(FileName, MAX_PATH+1);
  end;
end;