var
  FN: array [0..MAX_PATH-1] of char;
  ScriptName:String;
begin
  SetString(ScriptName,FN,GetModuleFileName(hInstance,FN,SizeOf(FN)));
  // ScriptName 即該 exe 或 dll 的檔名含路徑 (相當於 exeName)
end;